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A design-oriented, interactive computer system which 
makes possible the dynamic loading of programs at the 
user's request throughout the operating session has been 
developed. This system, which is referred to as DEX, also 
allows the user to select various types of files as the 
source and destination of information during the session. 
With respect to one type of file, databases, DEX introduces 
a more versatile form of organization and use. 

An extended DEX library of subroutines is developed 
which enables the user to read and write integer scalar, 
real scalar and one-dimensional real array variables and 
to edit from the terminal integer and real scalar values. 

It also enables the user to employ during input and out- 
put sequences the unit system of his choice. 

A proposal is offered for the organization of DEX 
databases for the preliminary design of naval ships. 
Suggestions are made, based on a demonstration computer 
program, for employing existing ship databases to support 
a generalized ship synthesis model. 
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CHAPTER 1 



INTRODUCTION TO DEX 



1 . 1 Background 

Significant improvements in the capability and 
efficiency of computer-aided design systems have been 
achieved in the past decade by the introduction of 
interactive computer programs. This development was a 
major advance in providing more flexibility to the user 
at the input end of the process. However, too many of 
the innumerable design programs, and the design systems 
that incorporate collections of them, suffer from several 
bothersome problems: 

(i) Less, but still excessive, restrictions 
on the flexibility of the programs to 
respond to the individual user's needs. 

(ii) Incompatibility of input and output 

amongst programs and especially between 
programs and databases. 

(iii) Excessive training time required for users 
to learn how to use the programs . 

(iv) Inability to be transported to different 
facilities . 

In 1974, researchers at the Massachusetts Institute 
of Technology and the University of Michigan felt that an 
investment in the "front end" of computer-aided design 
systems could eliminate or reduce these characterstics 
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and result in design tools of greatly enhanced capability 
[1] , [2] , [3] . One of their goals was to develop a sys- 

tem that provides the designer almost as much flexibility 
at the computer terminal as he/she* has when sitting at a 
desk with pencil, paper, calculator and imagination at 
their disposal. The system would be easy to use because 
of a consistent approach to the interface between the 
user and the programs. Further, it would incorporate a 
more intelligent approach to the use of databases. They 
named this concept "DEX", for Design ^ecutive System. 

DEX is a self-contained software package that can 
be adapted to almost any computer system that supports 
Fortran. It provides an environment for running task- 
oriented programs, called "modules". It supports pri- 
marily, but not exclusively, interactive programs where 
there is communication between essentially five "parties": 
the user, the computer, the computation program, the 
source of input and the destination of output. 

The purpose of the work reported in this thesis was 
to continue the development of the system at the inter- 
mediate level in the DEX hierarchy between what is refer- 
red to as "(the) DEX" and the "module". This intermediate 

* 

The use throughout this thesis of the proper pro- 
noun "he" and its derivatives when referring to the pro- 
grammer, user or designer is for the smoothness of the 
text and is not to imply any presumption of those persons ' s 
sex. 
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category of subprograms is called the "extended DEX 
library". (The collection of all the design program 
modules is called the "DEX library".) The function of 
the extended DEX library is to enable the user to accom- 
plish the following: 



(i) 


Establish an environment in 
of dialogue and the source 
of information is defined. 


which the type 
and destination 


(ii) 


Specify the system of units 
input and output. 


to be 


used for 


(iii) 


Read information. 






(iv) 


Edit information. 






(V) 


Write information. 







This investigator's motivation was to advance the 
development of an extremely capable tool for the field 
of ship design, but it should be stressed that DEX can 
be employed by any discipline involving computer-aided 
design. 

1. 2 Description of DEX 

1.2.1 Theory . Reference [3] provides an original 
and excellent description of DEX, but this writer felt 
that some discussion should be presented here to assist 
the reader in relating to the information offered in 
this thesis . 
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There 


are five characteristics of DEX which 


reflect 


design 


philosophy of the system: 




(i) 


The user is in the design loop. 




(ii) 


The system allows the design process 
executed in more than one sequence. 


to be 


(iii) 


The system talks with the user in plain 
English . 


(iv) 


The system is forgiving. 




(V) 


The system has multiple capabilities 
input and output. 


for 



1.2. 1.1 The user in the design loop . Design 
processess are typically iterative ones. This is especially 
true in the ship design process as vividly illustrated by 
the ship design spiral. Computer programs allow many and/ 
or complicated calculations to be performed quickly. The 
faster that the results can be analyzed and a new set of 
calculations initiated, the better. Even more advantag- 
eous is the ability to do only part of the calculations and 
analyze those results to decide whether or not to proceed. 
DEX extends the degree of spontaneity characteristic of 
interactive programs by enabling the dynamic starting of 
modules of the user's choice, by providing more options 
for sources of information immediately available to the 
user and by allowing the user to edit and insert information 
before it is used in calculations or written to its final 
destination. 
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1.2. 1.2 Flexibility. The increased flexi- 



bility offered by DEX manifests itself in two ways. The 
first, implemented to allow any computer program accept- 
able to the operating system to be operated in a system 
incorporating DEX, is that the degree of involvement with 
DEX is completely within the prerogative of the module 
author. The term "module author" was introduced in 
reference [3] and will be adopted here for consistency. 

It applies to the person who writes the particular appli- 
cation program and who chooses which DEX services to use. 
As a minimum, the module author can arrange for the user 
to issue only the following commands to execute the 
program: * 



. start main (this activates DEX) 

begin module2 (this starts the user's program) 

There would not really be any point to such an exercise 
but it can be done by fulfilling only two requirements. 
First, the name of the file containing the module name 
(e.g., module2 above) must be introduced in the DEX's 



* 

The symbol "." will be used to indicate user- 
typed commands, "$" will indicate DEX messages and 
will indicate module messages. These symbols are auto- 
matically inserted by DEX. 
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library file. Secondly, the main program of the module 
must be a subroutine appearing first in a listing of the 
module . 

The second aspect of the DEX's flexibility is the 
use of "menus” to provide the user with a wide choice of 
paths to follow to accomplish his goal. A menu is a list 
of options (a maximum of twelve per menu is possible) 
from which the user chooses to either define a value or 
proceed onto the next step of the operation. Some 
examples should prove helpful. 

Figure 1-1 depicts a typical units menu v;hich 
illustrates the first type of menu. The user would type 
in sufficient characters to identify the length unit to 
be used for input or output, e.g., "foot" (or just "f") . 
The subprogram which includes this menu would accep t 
the choice, if proper, and return control to the sub- 
program which called it. 

Menus are normally not displayed. The user will 
likely be aware of the menu options and is simply 
prompted to make a choice. For this example, one would 
see: 



*ENTER AN ITEM FROM MENU - LEN.UNIT 

However, if the menu choices are unknown, the user can 
type 
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$ + + 

$ + MENU + 

$ + LEN.UNIT + 

$ + + 

$ 1 + INCH + 

$ + + 

$ 2 + FOOT + 

$ + + 

$ 3 + STATMILE + 

$ + + 

$ 4 + NAUTMILE + 

$ + + 

$ 5 + MILLIMET + 

$ + + 

$ 6 + CENTIMET + 

$ + + 

$ 7 + METER + 

$ + + 

$ 8 + KILOMET + 

$ + + 



Figure 1-1. Menu "LEN.UNIT" 



$ + 

$ + MENU 

$ + MOD . 10 

$ + 

$ 1 + INPUT 

$ + 

$ 2 + OUTPUT 

$ + 

$ 3 + DONE 

$ + 

$ 4 + 

$ + 

$ 5 + 

$ + 

$ 6 + 

$ + 

$ 7 + 

$ + 



+ ———————— + 

+ MENU + 

+ INPUT + 

+ + 

+ ALL + 

+ + 

+ UNITS + 

+ + 

+ CA + 

+ + 

+ WATER + 

+ + 

+ HULLFORM + 

+ + 

+ SPEEDS + 

+ + 

+ DONE + 

+ + 



Figure 1-2. Two Consecutive Operational Menus 
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. $display menu len.unit 



to have the menu displayed by the DEX. Note that in 
this case the user himself types The word "dis- 

play" is a selection from menu "DEX. MAIN". After re- 
viewing the menu, by typing 

. continue 

he is returned to the prompting message for the length 
unit menu. 

The second type of menu option directs the program 
to proced to the next operation. Figure 1-2 shows two 
successive "operational" menus from a theoretical program 
that estimates horsepower from the Taylor Standard 
Series. The user would select item "input" from menu 
"MOD. 10" in order to pass onto the subprogram containing 
the menu "INPUT". Any of the items from that menu would 
pass him onto another subprogram. 

There is a subtle difference between the menus of 
Figure 1-1 and 1-2. Observe that the second shows the 
item "done" in both menus which is absent from the first. 
A subprogram with a menu containing "done" returns con- 
trol to the subprogram which called it only when that 
entry is selected, whereas for the other, without a 
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m 







"done", control returns automatically once a selection is 
made. The latter is used in menus where only one choice 
would be made at any time. 

The user is free to choose any item from a menu 
that is meaningful to him. There is, therefore, no one 
predetermined path that must be followed when executing 
a group of menus. Logic, however, may dictate that one 
specifies units before reading in water properties. 

1.2. 1.3 Plain English . The messages and 
queries to the user provided by DEX have been designed 
to be as clear as possible. The instructions or re- 
sponses that the user must supply are natural and logical 
words that would be used in an oral dialogue. An impor- 
tant aspect of these practices is the uniformity of 
dialogue encountered by the user under DEX. This reduces 
the effort required to learn how to operate a new 
program, which is not an insignificant advantage. 

1.2. 1.4 Forgiving . By extending the 
capabilities of the conventional design programs with 
DEX, the user can accomplish more during a session, but 
this entails more thinking on his part. The probability 
that errors will occur is therefore higher. 

Even the most experienced user makes mistakes. It 
may be as simple as depressing the wrong key when typing 
a menu selection or as improper as supplying an integer 
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when the program wants a real number. When developing 
the DEX and extended DEX library routines, and the 
Machinery Weight Estimating Module of Chapter 8 , as 
many potential errors as possible were anticipated and 
diagnostic messages, in plain English, were provided. 

In some cases they advise the user of the error and allow 
him to try again at that same point. In others, especially 
where a problem is caused by a programming error, control 
is returned to the user several sequential subroutines 
prior to where the error occured, with a message issued 
to assist in determining where to search for the mistake. 

1.2. 1.5 Input/Output Capability . DEX enables 
the communication of information by the dynamic allocation 
of databases and files, which are the only two storage 
locations it recognizes. In practice we distinguish 
between two types of files, such that the list of loca- 
tions is as follows: 

(i) databases 

(ii) input locations (which are the terminal 

for alphanumeric characters and a graphics 
screen for x-y coordinates) and output loca- 
tions (the terminal screen in the form of 
menus ) 

(iii) disk files. 

Now, for the ease of understanding of the user, 
the environment in which he operates is described as 
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having a total of five "sources" of information and four 
"destinations". The term "information" is preferred here 
to "input" and "output" to preclude a limiting misconcep- 
tion by the reader. The tendency to think of input as 
data read and output as answers written should be avoided 
In fact, the user may need to "write" input to the term- 
inal for inspection, or "read" an output value from the 
terminal in order to "write" it to a database. For this 
reason this writer will often apply the term "information 
to both input and output variables as values that have a 
source or destination. 

The sources and destinations provided for in the 
operating environment of the DEX system described in this 
thesis are listed here: 



(i)' 


DEX-created databases 




(ii) 


the terminal using DEX routines 
write alphaniimeric characters 


to read or 


(iii) 


the terminal or a plotter using 
routines to read or create x-y 


graphics 

plots 


(iv) 


sequential files 




(V) 


module default data (source only) 



The third capability does not yet exist in the 
present version of DEX at MIT because all the necessary 
enabling routines have not yet been implemented. If the 
user tries to employ it, error messages advise him of 
this situation. 
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The user is not confined to using the same type 
of destination as source, or the same source for all the 
information of a program. He may read information from 
one or more databases, for example, and write it to 
another, or to the terminal or to a file, or all three 
in succession. The only restriction is that the module 
can be pointed toward only one source or destination at 
one time . 

1.2.2 Organization . The hierarchy of DEX consists 
of three levels of programs: the DEX, the extended DEX 

library and the module. The first two categories com- 
prise a permanent, portable set of subprograms which 
provides an interface between the computer and the user- 
supplied module. 

1.2. 2.1 DEX . The category called DEX con- 
sists of several hundred subroutines, each with a very 
specific function, which provide the foundation, or 
"umbrella" if you will, for the DEX System. The employ- 
ment of these subroutines by the module authors results 
in a uniform appearance of the system to the user of the 
various modules exercised. The DEX services provide in- 
put/output and data utilities and, eventually at MIT, 
graphics utilities for the module authors. Although the 
module author and user need not be aware of most of these 
subprograms, in two areas they draw directly on the 
features of routines in this category. 
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The first area, of interest to the module author, 
is a set of 37 subroutines and functions which the pro- 
grammer may incorporate into his module to perform cer- 
tain tasks. References [4] and [5] describe these sub- 
programs and how they are used. Briefly, they are grouped 
into five categories: control of execution, input, output, 

database management and character manipulation. Subsequent 
chapters will refer to these as "DEX routines". 

The second area of overt involvement with the DEX 
category is encountered by the user during operation of 
a module. When the command 

. start main 

is issued, the user enters the DEX environment and is 
presented with a prompting message for menu "DEX. MAIN". 
There are six menus at this level of DEX, and these are 
listed in Figure 1-3 . The first instruction given to 
the user is : 

$ENTER AN ITEM FROM MENU - DEX. MAIN 

These items are listed in the rightmost column in the 
table. Note menu "DEX.DISP" which allows the user to 
display any menu by typing 

.display menu menuname 



22 



menu 



MEN tj 



+ MENU 



MENU 



MENU 



MENU 










08-TYPES 


4 - 


03S0CMDS 


4 - 


OXYES-NO 


4 


□EX. ALTR 


4 


DEX.DISP 


4 


OEX . MAIN 


4 


1 




integer 


4 » 


create 
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4 

4 


TERSE 




4 


MENU 


4 

4 


LIBRARY 


4 

4 


2 


+ 


REAL 


+ 


store 


-f 


NO 


4 

4 


VERBOSE 


4 

4 


NEWS 


4 

4 


HELP 


4 

4 


3 




ARRA Y-RL 


-f 


DELET6 






4 

4 


KEYBO 


ARD 


4 


MODE 


4 

4 


DISPLAY 


4 

4 


4 


•f 

+ 




4 - 


COMMENT 


4 - 




4 


graphic 


4 




4 

4 


alter 


4 

4 

■1 


5 


+ 




■4 

4 - 


EXPLAIN 


+ 




4 

4 


ECHO- 


ON 


4 




4 

4 


TIDV 


4 

1 - 


6 


4 - 




4 * 


PRINT 


■4 

4* 




4 

4 


ECHO- 


OFF 


4 

4 




4 

4 


OPEN-OB 


▼ 

4 


7 


■¥ 




4* 




4* 




4 


OONE 




4 




4 

4 


EDIT-03 


4 


3 


■f 

4- 




4» 


C£T.T I Tl_ 


4 » 

4 - 




4 

4 






4 

4 




4 

4 


CLOSt-OB 


4 

4 


9 


4- 

X 




4- 


GET-r itL 


■4 

4 - 




4 

4 






4 

4 




4 

4 


BEGIN 


4 


10 


4 - 




4 - 


CONE 


4 

4 




4 

4 






4 




4 


continue 


4 


1 1 


+ 

4 - 








4 

4 




4 

4 






4 




4 

4 


SYSTEM 


4 

4 


12 


•f 

4 * 




>• 

4 - 




+ 

4 




4 

4 






4 

4 




4 

4 

4 


OUIT-OEX 


4 

4 



Figure 1-3. DEX Menus (as printed on terminal) 
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The user's module is activated when he types/ 
from menu "DEX.MAIN", 

•begin modulename 

He then enters the environment of the module, but he 
can return to the DEX level by using the symbol and 

then an item from "DEX.MAIN". Similarly, he can transfer 
temporarily from the DEX level to the local computer 
operating system level by the option "system". To get 
back into DEX he uses the command 

. return 

and then to get back to the module he uses the menu 
option "continue". 

When a module execution is complete, the user 
returns to the DEX level and issues the command 

. quit 

to return permanently to the operating system. 

1.2. 2. 2 Extended DEX Library . The extended 
DEX library is not a level of operation like DEX on the 
module, but rather a collection of 45 subroutines and 
functions which the module author can adopt in con- 
structing his module. The bulk of this investigator's 
work involved the development of this library, and it 
will be discussed further in Section 1.3 and Chapters 3-7. 
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1.2. 2. 3 Module . A module is a complete set 



of subprograms written by the module author and executed 
by the user to perform a specific task. A module may 
consist of only one program which does the actual calcu- 
lations , or it may have many additional subprograms 
employing menus to take advantage of the flexibility 
offered by DEX and the extended DEX library. Chapter 2 
describes in detail an actual module used during the 
testing of the extended DEX library subprograms, and 
Chapter 8 describes the Machinery Weight Estimating 
Module written to demonstrate the use of the cruiser- 
destroyer databases. 

1.3 The Extended DEX Library 

In order to convey infomation from a storage 
location to the prograim doing the calculations and from 
there to another storage location or display, five 
capabilities are required by the user. These five, 

listed here, are provided by the extended DEX library: 

(i) Setting and reviewing the module environ- 
ment for type of dialogue and sources and 
destinations of information. 

(ii) Reading information. 

(iii) Editing information. 

(iv) Writing information. 

(v) Converting the user-preferred input/output 
units to the module author-preferred units 
and back again. 
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The five categories will be briefly outlined here and 
described in detail in Chapters 3-7. 



1.3.1 Environment . Four subroutines provide or 
display the module environment defined by the user. 

They are; 

DIALOG: enables user to specify terse or verbose 





dialogue 


SOURCE : 


enables user to specify source of infor- 
mation, either a DEX-created database, 
the terminal, a sequential file or the 
module's default data. 


DESTIN: 


enables user to specify the destination 
of information, either a DEX-created 
database, the terminal or a sequential 
file 


MDMODE : 


displays the status of the module environ- 
ment, including type of dialogue, reading 
source, writing destination, and reference 
numbers for files to be read from or written 
to . 


1.3.2 


Readers. Eight logical functions allow the 


user to read 


information from the designated source. 



They are: 



ISCLDR; 


invokes ISCPMP and ISREAD 


ISCPMP: 


: prepares a prompting message for reading 

an integer from the terminal 


IS RE AD: 


; reads an integer value from the source. 



RSCLDR: invokes RVAPMP and REREAD 



RVAPMP ; 


: prepares a prompting message for reading 

a real scalar or a real array from the 
terminal . 
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RSREAD: reads a real scalar value from the source 



RAILDR; invokes RVAPMP and RAlRED 

RAIRED: reads a single one-dimensional array from 

the source . 

1.3.3 Editors . The editing routines are still 
undergoing development. Eventually they will enable the 
user to perform various editing functions on the working 
variables of the module. Two preliminary routines were 
completed during this investigation: 

ISCEDT: enables the user to change the value of 

an integer scalar variable from the 
terminal . 

RSCEDT: enables the user to change the value of a 

real scalar variable from the terminal. 



1.3.4 Writers . Eight logical functions allow the 
user to write information to the designated destination 
They are : 



ISCDMP: calls ISDSCR and ISRITE 

ISDSCR: prepares a description message for 

writing an integer to the terminal 

ISRITE: writes an integer scaler to the desti- 

nation 



RSCDMP: calls RVDSCR and RSRITE 

RVDSCR: prepares a description message for writing 

a real scalar or a one-dimensional real 
array to the terminal 
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RARDMP: calls RVDSCR and RARITE 



RARITE: writes one-dimensional real arrays to the 

destination 

1.3.5 Units . The units subprograms are divided 
into three categories. The first category contains five 
subroutines which read, edit or write the input/output 
units that the user wishes to employ. There is one for 
each of the five basic types of units adopted by the 
system: plane angle, force, length, temperature and 

time. The names of these subroutines are: 

AUNIT 
FUNIT 
LUNIT 
TPUNIT 
TUN IT 

The second category contains five logical functions, 
one for each of the five basic unit types, which deter- 
mine the conversion factors for converting to i/o units 
to the program standard units and vice versa. Additionally, 
they prepare unit names and abbreviations of unit names 
which are used in database comments and prompting and 
description messages. The names of these functions are: 
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UNITAF 



UNITFF 

UNITLF 

UNITMP 

UNITTF 

The last category contains twelve logical functions 
which perforin the same function as those in the second 
category, but for derived units formed by combining 
basic units. They are: 



UAACC: 


angular acceleration 


UACCEL : 


linear acceleration 


UAREA : 


area 


UFREQ: 


frequency 


UKVISC: 


kinematic viscosity 


UriASS : 


mass 


UMPOWER; 


: mechanical power 


UPRESS ; 


pressure 


UPSPEC: 


power spectrum 


URHO: 


density 


USPEED; 


speed 


UVOL: 


volume 
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1.4 Dex Databases 



1.4.1 Philosophy . The DEX philosophy includes as 
a fundamental feature a new and more capable approach 

to database manipulation. This revolves around the 
concept of identifying a variable within a database by 
its name and not by its location . For example, if a user 
needs the value of an entry in the database signifying 
the ship's draft, he retrieves that value at the address 
"DRAFT', or whatever name it has been assigned by the 
database creator, and not by specifying that the value is 
the fourth or twentieth entry in the database . 

In order to use the capabilities of DEX a database 
must be constructed via either the commands of menu 
"DBEDCMDS" or the database management routines in 
reference [4] . These entail a specific format for the 
entry of the variable, but there is no sequential order 
required for arranging the different variables in the 
database . 

1.4.2 Format of Database Entries . In the present 

version of DEX a database can contain up to 200 variables. 
Three types of variables are allowed: integer scalars, 

real scalar, and one-dimensional real arrays. A real 
array can contain up to 200 elements. 

A variable entry in a database consists of four 
parts. First is the database name, which is formed by 
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up to eight alphanumeric characters (including blanks) , 
e.g., "LBP", "WEIGHT17", "TYPSONAR" . Second is the type 
of variable - integer, real scalar or real array - and 
third is the value of the variable itself. The final 
part is the database comment statement, a string of 
words up to 64 characters long which describes the 
variable. If the variable is either a real scalar or 
real array and has units, the comment statement contains 
a twelve-character (including blanks) version of the units 
enclosed in parentheses. Appendix B contains edited 
listings of a warship general database which illustra- 
tes database entries. 

Accompanying each database will be a database 
dictionary which lists for each variable its database 
name, type, array size, if applicable, and official data- 
base comment, including units, if applicable. Future 
versions of DEX will separate the units from the comment 
as a distinct fifth part of a variable entry. Further, 
development has started to create positional databases 
which will allow database elements to be related to each 
other, e.g., a database containing a ship's compartments 
where two compartments are adjacent. 

This chapter has attempted to give a brief intro- 
duction to the concept and organization of DEX. For the 
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reader who is confused at this point by the large number 
of new ideas, terms and subprograms mentioned. Chapter 2 
has been included to provide an example of a simple 
module which employs many of the concepts and subroutines 
described. It should give the reader a practical aware- 
ness of how this all ties together. This will prove 
helpful in reading the next five chapters which discuss 
the design of the extended DEX library subprograms. 
Chapter 8 discusses an application of DEX to computer- 
aided ship design. Finally, Chapter 9 offers recommenda- 
tions for future work. 
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CHAPTER 2 



THE CUBE MODULE SAMPLE PROGRAM 

2 . 1 General Description 

2.1.1 Function of the Module . The Cube Module 
was developed to test the subprograms of the extended 
DEX library written during this investigation. The 
module calculated the volume and weight of a block of 
salt water given the length, width, and height (note 
that "cube” is a slight misnomer) . While that function 
itself was elementary, the combination of single, scalar 
values for length and width and an array for height (and 
also, therefore, for volume and weight) permitted the 
testing of the reading, editing and writing routines 
for real scalars and the reading and writing routines 
for real arrays. The subprogram for specifying input 
and output units employed the routines for integer 
scalars. The subroutines for determining the conversion 
factors for length, force and volume were also exercised. 
Finally, as a matter of course, the environment setting 
routines were also tested. 

Appendix A contains a listing of the module. 

2.1.2 Module Subprograms . Although no single, 
correct sequence of operating the module subprograms 
existed, there was a logical path one would follow to 
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execute the program when not attempting to test every 
available option of the module. This path is a convenient 
order in which to list the module subprograms and those 
extended DEX library subprograms involving menus: 



MAINPG 


(C-M) 


DIALOG 


(DL-M) 


SOURCE 


(DL-M) 


DESTIN 


(DL-M) 


MDMODE 


(DL) 


MOD 10 


(C-M) 


INPUT 


(C-M) 


MXUNIT 


(C-M) 


LUNIT 


(DL-M) 


FUNIT 


(DL-M) 


DIMENS 


(C-M) 


COMPUT 


(C) 


OUTPUT 


(C-M) 


VANDWT 


(C-M) 


BLOCK DATA 


(C) 



The "C" indicates a Cube Module subprogram, the "DL" 
indicates an extended DEX library subprogram and the "M" 
indicates that the subprogram included a menu. Figure 
2-1 illustrates the menus encountered in this model. 

2.1.3 Typical Operation . A description of a 
typical execution of the Cube Module should prove help- 
ful. To assist the reader. Figure 2-2 shows the various 
access and return routes of the subprograms. Once the 
user entered the DEX level environment he activated the 
Cube Module via the "begin" option of menu "DEX. MAIN", 
that is 

. begin cube 
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MENU 

MOD. MAIN 



DIALOGUE 
INMODE 
OUTMODE 
MOD . MODE 



READ 



EDIT 

COMPUT 

WRITE 



QUIT 



MENU 

UNIT 



ALL 



LENGTH 



TIME 



FORCE 

PLANEANG 

TEMP 



Figure 2 



MENU 

MOD.ALTR 



TERSE 



VERBOSE 



MENU 

SOURCE 



DATABASE 



TERMINAL 



SCREEN 



FILE 



DEFAULT 



MENU 




MENU 




MENU 


DESTINAT 




MOD . 10 




INPUT 


DATABASE 




ALL 




ALL 


TERMINAL 




INPUT 




UNITS 


SCREEN 




OUTPUT 




DIMENSIO 


FILE 




DONE 




DONE 



MENU 

FOR. UNIT 



POUND AL 



FPOUND 



SHORTTON 



LONG TON 



DYNE 



NEWTON 



KILOPOND 



MENU 

LEN.UNIT 



INCH 



FOOT 



STATMILE 



NAUTMILE 



MILLIMET 



CENTIMET 



METER 



KILOMET 



MENU 

DIMENS 10 



ALL 



LENGTH 



WIDTH 



HEIGHT 



DONE 



MENU 

OUTPUT 


MENU 

RESULTS 


ALL 


VOLUME 


UNITS 


WEIGHT 


RESULTS 


DONE 


DONE 





-1. Menus Encountered in Executing the Cube Module 
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DIMENS 



( MXUNIT ') 



VANDWT 



( FUNIT ) ( LUNIT ) 



Figure 2-2, Access routes of the various 
subprograms encountered in executing the 
Cube Module. Return routes are back 
along the arrows. 
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where "cube" was the assigned module identification name. 
This command placed him in module subroutine MAINPG 
where he encountered the message: 

*ENTER AN ITEM FROM MENU-MOD . MAIN 
The user typed "mod. mode" and was presented with the 
status of the module environment. The initialized 
values for the dialogue, source and destination were 
verbose, terminal and terminal respectively and he 
found these satisfactory. He then typed 
. read 

which sent him to subroutine MODIO and the message 

* SELECT V7HICH MODULE VARIABLE SEGMENT TO READ 
♦ENTER AN ITEM FROM MENU-MOD . 10 

From this menu he selected item "input" by typing it: 

. input 

Now in subroutine INPUT he received the instruction 

♦SELECT WHICH INPUT VARIABLE SEGMENT TO READ 
♦ENTER AN ITEM FROM MENU- INPUT 

At this point, to save time, he made two sequential 
selections. From menu "INPUT" he selected "units" and 
anticipating menu "UNIT" he chose "length". He ac- 
complished this by typing 
.units length 

DEX recognized the space between the two words as 
a delimiter between two commands. It acted on the first 
by invoking subroutine MXUNIT. It then located item 
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I 



"length" on that subroutine's menu and called subroutine 

LUNIT which issued the command 

*ENTER LENGTH UNIT TO BE USED DURING INPUT OUTPUT 
*ENTER AN ITEM FROM MENU-LEN . UNIT 

The user specified "foot". LUNIT then passed control 

back to subroutine MXUNIT which printed 

* SELECT WHICH UNIT TO READ 
*ENTER AN ITEM FROM MENU-UNIT 

Again to save time, the user typed in two sequential 

menu selections: 

.force fpound 

This sent him to FUNIT and then back to MXUNIT. This 
time from menu "UNIT he chose item "done" which returned 
him to subroutine INPUT. Figure 2-3 illustrates this 
sequence . 

At this point the user had defined the length and 
weight units he intended to use for input and output. In 
response to INPUT'S request for a menu selection he typed 
. dimensio 

This invoked subroutine DIMENS and caused the following 
to be printed. 

*SELECT THE DESIRED DIMENSION TO READ 
*ENTER AN ITEM FROM MENU-DIMENSIO 

The user intended to read in all three dimensions (he 

could have used any or all of the initialized values 

built into the module in BLOCK DATA) so he typed item 



38 



*ENTER AN ITEM FROM MENU - 
.mod. mode 
*MODULE DIALOGUE 
*MODULE INPUT SOURCE 
*MODULE OUTPUT SOURCE 



MOD. MAIN 



VERBOSE 

THE TERMINAL (ALPHANUMERIC) 
THE TERMINAL (ALPHANUMERIC) 



*REFERENCE NUMBER FORM MODULE 

*FORTRAN READ FROM A FILE : 3 

*FORTRAN WRITE TO A FILE : 4 

*ENTER AN ITEM FROM MENU - MOD. MAIN 
. read 

*SELECT WHICH MODULE VARIABLE SEGMENT TO READ. 

*ENTER AN ITEM FROM MENU - MOD. 10 
.input 

*SELECT WHICH INPUT VARIABLE SEGMENT TO READ. 

*ENTER AN ITEM FROM MENU - INPUT 
.units length 

*ENTER AN ITEM FROM MENU - LEN.UNIT 
. foot 

*S ELECT WHICH UNIT TO READ. 

*ENTER AN ITEM FROM MENU - UNIT 
.force fpound 

*SELECT WHICH UNIT TO READ. 

*ENTER AN ITEM FROM MENU - UNIT 
.done 

*SELECT WHICH INPUT VARIABLE SEGMENT TO READ. 

*ENTER AN ITEM FROM MENU - INPUT 
. dimensio 

*SELECT THE DESIRED DIMENSION TO READ. 

*ENTER AM ITEM FROM MENU - DIMENSIO 
.all 

★ENTER LENGTH OF CUBE (FOOT ) 

★ENTER UP TO 1 REAL NUMBERS 

. 1.0 

★ENTER WIDTH OF CUBE (FOOT ) 

★ENTER UP TO 1 REAL NUMBERS 

.1.0 

★ENTER HEIGHT OF CUBE (FOOT ) 

★ENTER UP TO 4 REAL NUMBERS 

.1. 2. 3. 4. 

★SELECT WHICH INPUT VARIABLE SEGMENT TO READ. 

★ENTER AN ITEM FROM MENU - INPUT 



Figure 2-3. Sample Cube Module Input Sequence 
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f ! 



"all". The computer responded with: 

*ENTER LENGTH OF CUBE (FOOT ) 

* ENTER UP TO 1 REAL NUMBERS 

The user typed in "1.0" and the computer preceded to the 
next instruction 

*ENTER WIDTH OF CUBE (FOOT ) 

* ENTER UP TO 1 REAL NUMBERS 

The process was repeated, except that for height the 

computer requested up to four real numbers (height was 

defined as an array having up to four elements) . When 

the desired number (say four) of heights were entered 

control returned to INPUT. The user then typed in 

.done done 

to return to subroutine MODIO and from there to sub- 
routine MAINPG. 

In response to this subroutine's instruction the 
user typed 

. compute 

This invoked the COMPUT subroutine to actually calculate 
the volumes and weights. Control was then returned to 
MAINPG as evidenced by the instruction 
*ENTER AN ITEM FROM MENU-MOD .MAIN 
By now comfortable with the operation of the 
module, the user decided to display his results on the 
terminal. He decided to retain "foot" and "poundforce" 
as the units, although he could have selected any desired 
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units by accessing MXUNIT again. The volumes and weights 
returned by COMPUT were in metric units, that being the 
system in which COMPUT was written. The conversions took 
place at the input/output locations. More on this later. 

Now observe closely. The user issued the following 
commands : 

.write output results all 

These were selections from menus "MOD. MAN", "MOD. 10", 
"OUTPUT" and "RESULTS" respectively. The computer 
printed on the terminal the four volumes and four weights. 
Figure 2-4 is a copy of that printing. 

Satisfied with his answers, the user responded to 
the current instruction from subroutine OUTPUT with 
.done done 

to get back to MOD. MAIN. Choice "quit" at this point 
caused him to leave the module level and return to the 
DEX level, facing menu "DEX.MAIN". The "quit" selection 
allowed him to exit DEX and reenter the operating system 
level in order to log off. 

The rest of this chapter will describe the sub- 
programs of the Cube Module to assist the reader in 
understanding how to write a module program. 
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1 



•ENTER AN 


ITEM FROM MENU - 


MOO. MAIN 


wr output results all 




•VOLUYE Or 


CUBE ( FOOT **3 


) 


• INDEX 


VALUE 


• 1 


0.999S99E-00 




• 2 


0.20000CE+01 




* 3 


0.299939E-^01 




• 4 


0.399939E-^01 




•weight of 


CUBE ( ?CU'.D( FORCE) ) 


• INDEX 


VALUE 




• 1 


0.633765E-r02 




• 2 


0.12 7753E + 03 




• 3 


0.1 9 1629E+03 




• 4 


0.255506E-r03 





Figure 2-4 . 



Sample Cube Results' 

(as printed on terminal) 



2 . 2 Frequently Used Subroutines 

2.2.1 Block Data . We will commence the discussion 
of the module with the subroutines which may be used with 
only slight changes in form and/or content in several 
modules. The user may wish to refer frequently to the 
listings of these subroutines in Appendix A. 

First is a special subprogram, BLOCK DATA, used 
as standard practice in Fortran to initialize all the 
labeled common blocks used throughout the module . With 
respect to input/output variables, a typical labeled 
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common block appearing in BLOCK DATA and the pertinent 
subprograms is as follows: 



COMMON 


/VINFO/ V ( 4 ) , VOLNAM , VOLCMT , NDEVF , DEFALV ( 4 ) 


From this we 


can identify the following information 


which should 


appear in BLOCK DATA: 


(i) 


the variable (dimensioned for its maximum 
size if an array) 


(ii) 


the variable database name 


(iii) 


the variable database comment 


(iv) 


the number of default values (if it is an 
array) 


(V) 


the default value (or dimensioned default 
array) 


These values 


would all be initialized in the BLOCK DATA. 


Locating the 


initialization and dimensioning of all 



input/output variables in one subprogram facilitates 
checking and is a highly recommended practice. 

The variables are grouped under the subroutines in 
which they first appeared. MAINPG included four common 
blocks - REFNOS, INOUTF, DIALFG and MDNCPW. All of these 
are used in several other subprograms. REFNOS included 
the variables RNRFIL and RNWFIL which represented 



respectively 


the file reference numbers for reading from 


a sequential 


file using the Fortram READ command and 


writing to a 


sequential file via the Fortan WRITE 
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command. INOUTF included the variables IMODE and OMODE. 



The first denoted the source of reading information (1 = 
database, etc.) and the second denoted the destination 
for writing information (1 = database, etc.). DIALGF 
contained the logical variable MTERSE to denote the type 
of module dialogue (terse or verbose) . Finally labeled 
common MDNCDW contained the integer variable NCPW which 
was the number of characters per word assumed by the DEX 
routines. This value was site dependent. For example 
on IBM computers it was 4. For this reason it was flagged 
in BLOCK DATA as site-dependent. 

The other subroutines which represented the first 
occurrences of labeled common blocks were LUNIT, TUNIT, 
FUNIT, AUNIT, TPUNIT, DIMENS and VANDWT . Let us examine 
DIMENS. It contained nine labeled common blocks. The 
first four were mentioned above in MAINPG. LUNITS will 
be described in Chapter 7. The remaining four were 
listed under subroutine DIMENS in BLOCK DATA. LINFO, 

WINFO and HINFO contained the variable, database name, 
comment, default values and number of default values, 
where applicable, for the length, width and height 
dimensions respectively. H and DEFALK were dimensioned 
because they were arrays. The type declarations and 
dimensions of all the variables were followed by the 
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' .A ^ ' 














data declarations of their values. The remaining common 
block, DIMFRM, represented the formats to be used when 
reading from or writing to sequential files. One format 
was for real scalars and the other for arrays. 

2.2.2 MAINPG . Subroutine MAINPG, via menu 
"MOD. MAIN", allowed the user to select the environment 
of the module and the desired paths to follow to operate 
it. The capabilities it gave the user were: 

(1) To set the style of module dialogue. This 
choice invoked subroutine DIALOG. 

(2) To select the source of module input. This 
choice invoked subroutine SOURCE. Remember that "input" 
here means any information to be read, even output 
variables . 

(3) To select the destination of module output. 
This choice invoked subroutine DESTIN. 

(4) To list the module flags. This invoked sub- 
routine MDMODE which printed the status of the 
dialogue, the source, the destination, and the file 
reference numbers. 

(5) To access the module reading routines. This 
choice set the variable I0FLAG=1 and then called MODIO. 

(6) To access the module editing routines. This 
choice set I0FLAG=2 and then called MODIO. 
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(7) To access the module computing routine by cal- 
ling COMpuT to execute the calculations. 

(8) To access the module writing routines. This 
choice set I0FLAG=3 and then called MODIO. 

(9) To return control to the DEX level and menu 
"DEX.MAIN". It did this by invoking the DEX routine ENDIT 

The menu name and the items were declared in MAINPG 
with data statements. DEX routine I4ENUIN was used to con- 
vert the user's selection to an integer flag ITEM for 
branching to the correct point in MAINPG. MENUIN was the 
routine that actually printed the prompting instruction to 
enter a menu item. 

The user can make his subroutine MAINPG as simple 
or extensive as desired within the constraint that the 
maximum number of menu items (because of MENUIN) is twelve 
TO show how simple it could be, consider a user who has a 
program called STRENGTH and for some reason he wanted to 
start it with the DEX. All he would need in his module 
besides STRENGTH is the following subroutine: 

SUBROUTINE MAINPG 

CALL STRENGTH 

RETURN 

END 

If STRENGTH used menus, DEX routine ENDIT would also have 
to be called to clear the buffer afterwards. 
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2.2.3 MODIO . Subroutine MODIO had one parameter 



in its calling sequence - lOFLAG - which indicated if the 
operation to be performed was reading, editing and writing. 
MODIO had two labeled commons - DIALGF and MDNCPW - dis- 
cussed in BLOCK DATA. DIALGF determined whether the ver- 
bose or terse menu prompting message would be issued. 

NCPW was needed for calling DEX routines STRPAK and 
LMOVEC. 

MODIO presented the user with the menu selections 
shown in Figure 2-1. The "all" option allowed the user 
to read, edit or write all the input and output variables. 
The "all" option was implemented by a logical variable 
"ALLFLG" which was set to .TRUE if that menu item was 
chosen. This variable was subsequently passed on through 
the module. If it was returned .FALSE, to MODIO, it would 
cause the execution of the last command to be halted and 
the prompting message for menu "MOD. 10" to be issued so 
that the user could take corrective action. 

2.2.4 MXUNIT and the "ALL" Logic . A subprogram 
similar to MXUNIT will be needed in any module which 
allows the user to specify i/o units different from those 
in which the computing routines were written. MXUNIT per- 
mitted the user to read, edit or write the module units he 
wished to use for input and output. For example, if the 
user selected "force" from menu "UNIT", subroutine FUNIT 
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would have been called to present the menu choices for 
force units. FUNIT and the others in that series will be 
described in Chapter 7, but some detail is required here 
because of all the calling parameters involved. 

The calling sequence for FUNIT, typical for all 
five in that series, was as follows: 

CALL FUNIT ( UIFUN , LOCALL , lOFLAG , lOMODE , MTERSE , 

NCPW , DBFUNN , DBFUNC , PMPREP , PMES , 

RNFILE , FUNFRM, DEFFUN) 

The first parameter was an output variable, LOCALL was 
both input and output, and the rest were all input vari- 
ables provided by MXUNIT. 

UIOFUN would have been assigned a value between 1 
and 7 depending on what force unit the user selected. 

LOCALL carried the information concerning the 
".2^LL" option. One of the calling parameters for MXUNIT, 
CALALL, passed on the "ALL" option from subroutine INPUT. 
If it was .TRUE, then LOCALL would have immediately been 
assigned .TRUE, also, and the prompting for menu "UNIT" 
would have been bypassed. Each of the i/o unit-defining 
routines, such as FUNIT, would have been called and the 
user asked to specify the desired choice of the particu- 
lar type of unit. Even if CALALL was .FALSE., the user 
could have selected "all" from menu "UNIT" with similar 
results . 
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If any of the i/o unit-defining subroutines was un- 
successful, LOCALL would have been returned .FALSE.. The 
program would have checked the value of CALALL. If it too 
was .FALSE., the menu "UNIT" would have been presented for 
another selection. However, if CALALL was .TRUE., it would 
have meant that there had been a change in the value of 
LOCALL (i.e., a failure in the called subprogram). MXUNIT 
would have set CALALL to .FALSE, and returned control 
through subroutine INPUT back to MODIO. This was because 
INPUT incorporated the same "ALL" logic as MXUNIT. 

Note from the listing of MXUNIT that LOCALL is ini- 
tialized as .FALSE. . If CALALL was .FALSE, and the user 
did not choose "all" from menu "UNIT", he would have been 
asked to select from the menu each time after a unit was 
specified, until he typed "done". This "ALL" logic was 
used extensively throughout the module as a means of ex- 
peditng the reading, editing or writing of many variables. 

Returning to the calling sequence for FUNIT, we 
have already mentioned lOFLAG, indicating the operation to 
be performed. PMPREP was set locally by a data declara- 
tion. It indicated to the subprograms called whether or 
not a prompting message for the unit to be selected was to 
be prepared by the program. If .TRUE., PMES would later 
be the storage location for the prompting message. If 
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PMPREP was .FALSE., PMES would already have to have the 
prompting message in it. Since PMES first appeared here 
in MXUNIT it was dimensioned here for the maximum allow- 
able size of 16 "words”. This number came from the limi- 
tation on PMES to be at most 64 characters long, divided 
into 4-character "words". 

All the other variables were obtained by MXUNIT 
from other subprograms, including BLOCK DATA, by labeled 
common blocks. An inspection of the listing of MXUNIT re- 
veals the large number of commons required because of five 
types of units. 

INOUTF passed the indicator of the source of in- 
formation to be read (IMODE) and the destination of infor- 
mation to be written (OMODE) . Depending on lOFLAG, lOMODE 
was set equal to one of these two. This told FUNIT from 
where UIOFUN was to be read or to where UIOFUN was to be 
written . 

REFNOS passed the values of the file reference num- 
bers for Fortran READ (RNRFIL) and Fortran WRITE (RNWFIL) . 
Depending on lOFLAG, RNFILE was set equal to one or the 
other. These values are assigned to files during the ex- 
ecution of extended DEX library routines SOURCE and DESTIN 
by DEX routine SETDEV if the user had designated files as 
the source or destination. 

The other labeled commons will be described in 



Chapter 7 . 
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2 . 3 The Input Series 



2.3.1 INPUT . Subroutine INPUT provided the user 
with a menu by which he could access subroutines MXUNIT and 
DIMENS and return control to subroutine MODIO. It con- 
tained the labeled common blocks DIALGF and MDNCPW for use 
in calling STRPAK and LMOVEC for character manipulation. 
INPUT had two variables in its calling sequence - CALALL 
and lOFLAG - as did MXUNIT described above. The logic 

for the use of CALALL and LOCALL was identical to that de- 
scribed in 2.2.4. Briefly, if LOCALL was set to .TRUE, 
when INPUT was invoked because CALALL= . TRUE . , and it was 
returned by MXUNIT or DIMENS as .FALSE., CALALL would 
have been set equal to .FALSE, and control passed back to 
MODIO. If CALALL was .FALSE., LOCALL would have been 
.FALSE, unless the user selected "all" from menu "INPUT". 

Besides LOCALL, INPUT passed lOFLAG to MXUNIT and 
DIMENS to indicate reading, editing or writing. 

2.3.2 DIMENS . Subroutine DIMENS allowed the user 

to read, edit, or write the value of the block dimensions. 
It had two calling parameters, ALLFLG and lOFLAG. The 
former carried the "ALL" option information and behaved 
like CALALL. The "ALL" option was passed on to the called 
logical functions by the usual variable LOCALL. 

DIMENS, like MXUNIT, also contained quite a few 
labeled common blocks. Five have already been seen in 
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MXUNIT: DIALGF, INOUTF, MDNCPW, REFNOS , and LUNITS. LINFO 

WINFO, and HINFO contained the variable, database name, com 
ment and default values for the length, width and height of 
the block. DIMFRM contained the format information for 
reading from or writing to files. 

Before menu "DIMENSIO" was presented to the user, two 
actions occurred. The first was the calling of the logi- 
cal function UNITLF by the statement 

LOGVAL=UNITLF (CONVLM , NAML02 , NAI'IL06 , NAT^lLl 2 , ALLFLG , 
PSTLUN , UIOLUN , NCPW) 

UNITLF, discussed in Chapter 7, produced the multiplicative 
conversion factor CONVLM for converting the dimensions in 
the input length unit to values in the program standard 
length unit (meter) . The second through fourth variables 
in UNITLF ' s calling sequence represented various abbrevia- 
tions of the length unit the user had selected for input/ 
output. UNITLF was able to provide this information be- 
cause of the values of PSTLUN and UIOLUN. The first in- 
dicated program standard length unit, the second user i/o 
length unit. As a pair they were an index to locating 
the other information. 

The other action which occurred immediately in DIMENS 
was the setting of LOCALL equal to ALLFLG. If this made 
LOCALL equal to .TRUE. , menu "DIMENSIO" was not presented 
and DIMENS immediately started operating on all the menu 
choices . 
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If the user selected "width" from the menu, the pro- 
gram next referred to lOFLAG. If I0FLAG=1 (reading) , the 

program branched to the statement 

LOGVAL=RSCLDR (VJ , LOCALL ,MTERSE , IMODE ,NCPW, V7IDNAM, 

CONVLM , CONVLA , NAI4L1 2 , . FALSE . , . TRUE . , 

PMES , WMORGN , RNRFIL , LWFRM , DEFALW) 

Logical function RSCLDR is the first of three functions 
for reading real scalars. The value read in for width, 
in program standard units, was stored in W. IMODE indi- 
cated the source of the reading. WIDNAM was the 8-charac- 
ter database name for width. CONVLM and CONVLA were re- 
spectively the multiplicative and additive conversion fac- 
tors for changing the read in width to the value in program 
standard units via the expression 
W=W * CONVLM + CONFLA 

CONVLA was locally declared 0. NAML12 was the 12-charac- 
ter version of the i/o length unit and was used in prompt- 
ing message preparation and database comment comparison. 

The parameter .FALSE, represented the variable VITAL which 
indicated if the variable W was essential for input con- 
tinuation. The parameter .TRUE, was for PMPREP, indica- 
ting that the reading subprograms would prepare the 
prompting message PMES, at this point undefined. Since 
PMES was a local variable not passed to DIMENS by the 
calling sequence or a labeled common block it was dimen- 
sioned "16" in DIMENS. WMORGN contained the description 
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of the width, including space allotted for inserting the 
units. RNRFIL and LWPRM were the reference number and 
format respectively for reaching width from a file. 

DEFALW was the default value for width if the user wished 
to set W equal to that. 

If I0FLAG=2 , the subprogram called the editing rou- 
tines by the expression 

LOGVAL=RSCEDT ( VJ , LOCALL , MTERS E , NCPW , WI DNAM , CONVLM , 
CONVLA , NAf ILl 2 , . TRUE . , PI'IES , WMORGM , 

RNRFIL , LWFRJJ4 , DEFLAW) 

This was very similar to the reading function except that 
IMODE was not specified. This was because RSCEDT itself 
defined and employed a variable EDMODE, of value 2, for 
the terminal, in lieu of IMODE, when it called RSCLDR. 

Finally, if I0FLAG=3, the real scalar writing rou- 
tines were invoked by the statement 

LOGVAL=RSCDMP (LOCALL , MTERS E , OMODE , NCPW , W , WIDNAM , 
CONVLM , CONVLA , NAMLl 2 , . TRUE . , PMES , 

WMORGN , RNWFIL , LWRFM) 

Observe that OMODE was used to indicate destination of the 
value of W for writing. Also note the use of RNWFIL to in 
dicate the file reference number for writing with Fortran 
WRITE, using the format supplied by LWFRM. 

Because the height variable H represented a four- 
element array, the logical functions called were different 
For reading (I0FLAG=1) DIMENS branched to the statement 
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L0GVAL=RA1LDR (H , LOCALL , NGOT , MTERSE , IMODE , NCPW, HEINAM, 
MXTOGT , CONVLM, CONVLA, NAJ^IL12 , . FALSE . , 

. TRUE . , PMES , HMORGN , RNRFIL , HFRM , NDEFH , 
DEFALH) 

Several new variables appear here. MXTOGT represented the 
maximum number of elements to extract from the source when 
the source was a database or the terminal. NGOT represen- 
ted the actual number of elements read from the source. 

Both MXTOGT and NGOT were initialized as 4 in DIMENS. VITAL 
was defined by the .FALSE, and PMPREP by the .TRUE.. HFRM 
contained the format for reading the array from a file. 

NDEFH and DEFALH were respectively the number of default 
values and a four-element array containing the default 
values for height. 

Because the array editing routines had not yet been 
written, provision for calling a dummy routine, RAREDT, 
was included in DIMENS. 

For writing (I0FLAG=3), the program branched to 

LOGVAL=RARDMP ( LOCALL , MTERSE , OMODE , NCPW , H , HEINAM , 

NFROM , NGOT , CONVLM , CONVLA , NATlLl 2 , 

. TRUE . , PMES , HMORGN , RNWFIL , HFRM) 

NGOT, mentioned above, and NFROM, were initialized as 4 
and 1 respectively in DIMENS. NGOT could have a value 
different from 4 only if less than four elements were read 
in when RAILDR was called. 
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2 . 4 The Output Series Subprograms 



The output series consisted of two subprograms - 
OUTPUT and VANDWT - for working with the volumes and 
weights calculated by COMPUT. These had direct parallels 
to INPUT and DIMENS and need not be discussed in detail. 
OUTPUT offered the user the capability of invoking MXUNIT, 
via the menu item "unit " , in case the user wished to 
write the volume and weight in different units from those 
he had used for reading in the block dimensions. 

2 . 5 General Programming Comments 

This chapter will conclude with some comments about 
writing modules. It is hoped that the reader has some 
understanding of the calling parameters used by module 
subprograms when invoking extended DEX library routines . 

In some cases large numbers of variables appear in the 
calling sequences. This is due to the fact, as will be 
pointed out in the next chapter, that the library rou- 
tines use no common blocks. 

One suggestion already emphasized is the use of a 
BLOCK DATA subprogram to initialize all input/output 
variables and their associated variables. This adds some 
extra work by increasing the number of common block vari- 
ables, such as the database names, comments and default 
values. However, the improved efficiency for checking 
values and dimensions is considered to outweigh this dis- 
advantage . 
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When writing a module, to determine the menus required 
it is easiest to work backwards in the opposite direction 
to the order of use. Identify the input and output vari- 
ables and place them in menus. Then establish a supervis- 
ory input menu and a supervisory output menu. For example, 
one may contain the group name for the input variables, such 
as "dimensions" in Cube, plus a units item to allow the 
user the choice of i/o units. At this point the module 
author may be almost done with the module design phase, 
because he can frequently incorporate the standard routines 
MAINPG and MODIO to complete his set. MXUNIT is also 
offered as a very adaptable, comprehensive routine for 
handling units. In a situation like the Machinery Weight 
Estimating Module in Chapter 8, one menu suffices for both 
input and output variables. Figure 2-5 illustrates the 
difference in flow between the main subroutine and the 
i/o variables for the two modules. Yet both use identical 
MAINPG and MODIO subprograms and only slightly different 
versions of MXUNIT. 

When establishing menus a few rules must be kept in 
mind. The maximum number of menu items is twelve. When 
constructing the eight character menu item names , no 
blanks are allowed between characters but are acceptable 
after all the characters. If each menu item begins with 
a different character, only that one character has to be 
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entered by the user to enable DEX routine MENUIN to 
identify the selection. 





Machinery Weight Estimating Module 



Figure 2-5. Comparison of Module Input/Output Flow 
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CHAPTER 3 



THE EXTENDED DEX LIBRARY ENVIRONMENT SETTING ROUTINES 

3 . 1 Introduction 

Upon entering the module level of DEX operation, the 
user needs to establish or verify the environment which 
suits his requirements. Four extended DEX library subrou- 
tines give him the capability to do this. They are: 

(1) DIALOG, which sets the type of module dialogue 

(2) SOURCE, which defines the location of informa- 

tion to be read 

(3) DESTIN, which defines the location to which in- 

formation is to be written 

(4) MDMODE, which displays on the terminal the cur- 

rent status of the type of dialogue, the 
source, the destination and the file ref- 
erence numbers for Fortran READ and WRITE 
to sequential files. 

Each of these will be discussed in this chapter. Logical 
function CHKRNG, revised during this investigation, is also 
discussed here, although it will eventually become a DEX 
routine and not an extended DEX library function. 

3 . 2 Subroutine DIALOG 

3.2.1. Menu and Calling Parameter . Subroutine DIALOG 
would normally be called by a subroutine similar to the 



59 



p 

I 



I 



subroutine MAINPG of the Cube Module. In that specific 
case it was done by selecting item "dialogue" from menu 
"MOD. MAIN". DIALOG has its own menu, and this is illus- 
trated in Figure 3-1. Note the absence of an item "done", 



$ + + 

$ + MENU + 

$ + MOD.ALTR + 

$ + + 

$ 1 + TERSE + 

$ + + 

$ 2 + VERBOSE + 

$ + + 



Figure 3-1. Menu "MOD.ALTR" 
(for Subroutine DIALOG) 
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which appeared in most of the Cube Module menus. This is 
typical for the subroutines of this chapter. Since the 
user only makes one choice from these menus, the subpro- 
grams automatically return control to the calling program 
(e.g. MAINPG) without further action by the user. 

It should also be called to the reader ' s attention 
that the DEX library subroutines employ no labeled common 
blocks. Rather, all variable values are transmitted by 
means of the calling sequences. This was done to minimize 
the possibility of inadvertently passing improper values 
among the many subprograms which share the same commons . 
The calling sequence presents a readily-checked format for 
tracing errors. 

The only variable in the calling sequence for DIALOG 
is the logical variable MTERSE . If MTERSE= . TRUE . , the 
dialogue type is terse; it is is .FALSE, the dialogue is 
verbose. These two types of dialogues are offered to sat- 
isfy the needs of the individual user. For the new user, 
the verbose dialogue provides longer messages from the 
module or DEX to facilitate learning how to use them. The 
terse dialogue allows more rapid operations by the experi- 
enced user. 

Initialized in BLOCK DATA, MTERSE can have its value 
changed by the correct selection from menu "MOD.ALTR". 

This is accomplished by subroutine MENUIN. MENUIN is a 
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DEX integer function (see reference [5]) which converts a 
menu selection into an integer value. In DIALOG, the fol 
lowing statements are involved in this process:* * 

DATA LMS/8/ 

DATA MENUNM/4HM0D. , 4HALTR/ 

DATA NITEMS/2/ 

DATA ITEMS/4HTERS,4HE 

1 /4HVERB,4H0SE / 

CALL STRPAK (MESS , LMS , 4H< ,29HSELECT TYPE OF MOD 
lULE DIALOGUE^) 

ITEM=MENUIN (MENUNM , N ITEMS , ITEMS , MESS) 

MENUIN prints both the prompting message MESS shown 
above and the message 

*ENTER AN ITEM FROM MENU - MOD.ALTR 
MENUIN sets ITEM equal to 1 if the user selects TERSE and 
2 if he selects VERBOSE. ITEM is then used to branch to 
statements which make MTERSE either .TRUE, or .FALSE, 
as appropriate. Both branches return control to the cal- 
ling program. 

3 . 3 Subroutine SOURCE 

3.3.1 Menu and Calling Sequence . Subroutine SOURCE 
normally accessed from a subprogram like MAINPG, allows 
the user to select from the menu shown in Figure 3-2 the 
source of information to be read. Subroutine MENUIN 
assigns a value between 1 and 5 to IMODE depending on the 
user's choice. 

* STRPAK is a DEX routine which inserts character strings 
into an integer array in the DEX format of four charac- 
ters per word. See ref [5] . 
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The calling sequence for SOURCE is as follows: 



SUBROUTINE SOURCE ( IMODE , DBFNME , IFILNM , RNRFIL , 

MTERSE,NCPW) 



DBFNME is the database filename when the source is a 



database. IFILNM is the name of the sequential file if 
the user intends to read from a file. RNRFIL is an input 
variable defined in BLOCK DATA which represents the 
device number to be assigned to file IFILNM. The infor- 
mation in the file will be read in by one of the reading 
routines using the statement of the form 
READ (RNRFIL, FORMAT) X 



where X represents the variable being read. MTERSE and 
NCPW are required here for the preparation of the menu 
prompting message and other error messages supplied by 
subroutine source. 



$ + + 

$ + MENU + 

$ + SOURCE + 

$ + + 

$ 1 + DATABASE + 

$ + + 

$ 2 + TERMINAL + 

$ + + 

$ 3 + SCREEN + 

$ + + 

$ 4 + FILE + 

$ + + 

$ 5 + DEFAULT + 

$ + + 



Figure 3-2. Menu "SOURCE" 
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3.3.2. Operation of SOURCE. SOURCE commences execu- 



tion by calling MENUIN to prompt the user to make a menu 
selection. MENUIN assigns an appropriate value to IMODE 
for branching. 

If IM0DE=1, the subroutine requires a database via 
DEX logical function DBOPEN . If there already is an open 
database, DBOPEN asks the user if he wants to use it, and 
if so, if he wants to save it ("save" has the usual mean- 
ing of writing a copy into memory from the buffers) be- 
fore using it. If a database is "active", meaning a copy 
is in the buffers but there is also a saved copy in mem- 
ory, the user is asked only if he wants to use it. If the 
user answers "no" to either of these questions, or if there 
is no active or open database, DBOPEN prompts the user for 
the nam.e of either a new one to be created or an existing 
one to be opened. DBFNME is assigned that name. When 
this is done control is returned to the calling program. 

If IM0DE=2 (terminal) or 5 (default values) control 
simply returns to the calling program. If IM0DE=3, indi- 
cating that the user hoped to employ DEX routines to read 
X-Y coordinates from a screen plot, he is informed that 
this mode of module input has not been implemented yet. 

IM0DE=4 causes the calling of subroutine GETFLNM 
which asks the user the name of the sequential file to be 
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read. Then logical function SETDEV assigns RNRFIL to 
IFILNM before control returns to the calling program. 

3 . 4 Subroutine DESTIN 

3.4.1 Menu and Calling Sequence . Subroutine DESTIN 
is similar to SOURCE except that there are only four pos- 
sible choices, as seen in the menu illustration in Figure 
3-3. The calling sequence contains six parameters: 

SUBROUTINE DESTIN( OMO DE , DBFNME , OF I LNM , RNNF I L , 

MTERSE,NCPW) 

OMODE is assigned a value between 1 and 4 by MENUIN. 
DBFNME is the same as in SOURCE. OFILNM is the name of 
the sequential file to which output is to be written. 
RNWFIL is an input variable defined in BLOCK DATA which 
represents the file reference number to be assigned to 
OFILNM for Fortran WRITE. 

3.4.2 Operation of DESTIN . This subroutine behaves 
very similarly to SOURCE. If 0M0DE=1, DBOPEN checks for 
and opens as necessary a database and assigned DBFNME its 
name. If 0M0DE=2, control simply returns to the calling 
program. If the user selected the screen in order to do 
plotting, he is informed that this mode of output has not 
yet been implemented and is asked to make another selec- 
tion. If OMODE=4, the user is asked the file name and 

it is assigned to OFILNM. Then logical function SETDEV 
assigns RNOTIL to the file and control is returned to the 
calling program. 
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$ + + 

$ + MENU + 

$ + DESTINAT + 

$ + + 

$ 1 + DATABASE + 

$ + + 

$ 2 + TERMINAL + 

$ + + 

$ 3 + SCREEN + 

$ + + 

$ 4 + FILE + 

$ + + 



Figure 3-3. Menu "DESTINAT" 
(for Subroutine DESTIN) 



3 . 5 Subroutine MDMODE 

3.5.1 Function . Subroutine MDMODE informs the user 
of the current value of the following variables; 



(1) 


MTERSE , 


which denotes the type of module dia- 
logue 


(2) 


IMODE , 


which denotes the source of information 
to be read 


(3) 


OMODE , 


which denotes the destination of infor- 
mation to be written 


(4) 


RNRFIL, 


which denotes the file reference number 
for module Fortran READ from a sequential 
file 


(5) 


RNWFIL, 


which denotes the file reference number 



for module Fortran WRITE to a sequential 
file 
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After displaying this information, or an error message if 
a failure occurs, MDMODE returns control to the calling 
program. 

3.5.2 Operation of MDMODE . The calling sequence for 

MDMODE contains only variables already discussed. 

SUBROUTINE MDMODE ( IMODE ,OMODE , RNRFIL , RNWFIL , 

MTERSE,NCPW) 

MDMODE does not display the numerical values of IMODE and 
OMODE but rather, for the user's convenience, it prints 
character strings defining the source and destination, e.g. 
"a dex created database". Similarly, for MTERSE, it prints 
"terse" and "verbose" vice ".TRUE." or ".FALSE.". 

3 . 6 Logical Function CHKRNG 

Logical function CHKRNG determines if an integer num- 
ber is within the range defined by two other integer num- 
bers. If not, an appropriate error message ^is issued and 
CHKRNG is returned .FALSE.. The calling sequence is as 
follows : 

LOGICAL FUNCTION CHKRNG (NUMBER, MNEMON,MINNUM, 

MAXNUM,NCPW) 

The routine checks if NUMBER is between the lower number 
MINNUM and the higher number MAXNUM. MNEMON is an 8- 
character memonic for NUMBER used in the error message. 

The use of CHKRNG avoids the need for the module author 
to include a message in his program. 
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CHAPTER 4 



THE EXTENDED DEX LIBRARY READING ROUTINES 

4 . 1 General Description 

4.1.1 Function . Information, which includes both 

input values and previously calculated output values, 
resides in four locations: DEX-created databases, the 

user himself, requested files and default data stored in 
the module. The user actually presents two distinct 
sources of information to the computer because of the two 
ways in which he can transmit data at the terminal: the 
first in the form of alphanumeric characters and the other 
by the location of a pen-pointer or cross-hairs on a plot 
on the screen. The latter method has not yet been imple- 
mented in DEX at MIT. 

The function of the extended DEX library reading 
routines is to permit the transmission of that infor- 
mation to the module so that it can be written to other 
locations, such as the terminal for inspection, and/or 
used as input for the calculations being performed. 

4.1.2 Organization . Eight logical functions 
comprise the reading routines group. They are listed 
here by the type of variable on which the operate: 
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Integer 


Real 


Real 


Scalar 


Scalar 


Array 


ISCLDR 


RSCLDR 


RAILDR 


ISCPMP 


RVAPMP 




IS READ 


RSREAD 


RAIRED 



The real scalar and array categories share RVAPMP . 

These routines could be categorized horizontally 
by their specific jobs, as evidenced by the similarities 
in their names. The top three are called "loaders". 

These are the functions that appear in the module sub- 
programs where it is desired to read variables, and to 
the module author, for all intents and purposes, they are 
the reading routines. He does not need to be aware that 
they actually call the others to do the work. 

If the user intends to input from the terminal he 
needs to be prompted for the correct information. This 
prompting message can be supplied by the module or it 
can be prepared by two routines in this group called 
"prompters". The loaders call the prompters as they are 
required. Having ensured that a prompting message exists, 
the loaders then call the third category, the "readers", 
to actually read in and assign the values to the input, 
output and working variables. 
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4 . 2 Integer Scalar Series 



4.2.1 ISCLDR 

4. 2. 1.1 Calling sequence . The calling 
sequence for logical function ISCLDR includes 17 vari- 
ables listed here: 

LOGICAL FUNCTION ISCLDR (IVAR,ALLFLG, 

MTERSE , lOMODE , NCPW , DBNAME , VITAL 
MENUFL , MENUNM , NITEMS , ITEMS , PMPREP , 
PMES , PMORGN , RNFILE , FORMAT , DEFALT) 

From the point of view of the function, IVAR is an output 

variable, ALLFG is both input and output, and the remainder 

are all input variables. 

IVAR is where the value of the integer sought will 
be stored. VITAL should be discussed next. An essential 
input variable, that is one required when reading input 
so that subsequent values can be entered correctly, is 
indicated when the logical variable VITAL has a value 
.TRUE.. This is important to the value of ALLFG. ALLFLG 
indicates the status of the calling program "all" option 
(active when ALLFLG= . TRUE . ) . If both VITAL and ALLFLG 
are .TRUE, and IVAR is not read successfully, or the 
prompting message is not prepared successfully, ALLFLG 
will be changed to .FALSE.. ALLFLG 's value can also be 
changed to .FALSE, during a reading evolution if I0M0DE=4 
(file source) and a premature end-of-file is encountered. 
Otherwise ALLFLG will retain its input value. 
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MTERSE indicates whether the module dialogue is 
terse or verbose. lOMODE denotes the source of input and 
corresponds to IMODE in the calling program. NCPW is the 
number of characters per word assumed by the DEX routines. 
DBNAME is where the database name of the integer is stored. 
Eight characters (including blanks) must be defined for 
this variable. 

MENUFL is a logical variable which indicates if the 
integer sought will be a menu selection. If it is .TRUE., 
the next three variables must be defined. I-IENUNM is the 
eight-character name of the menu from which the selection 
will be made. NITEMS is the number of items in the menu. 

In the current version of DEX, the maximum number of menu 
items allowed is 12. ITEMS are the menu choices. Each 
choice is described by a name of eight characters (in- 
cluding blanks). Therefore, with four characters per 
word, ITEMS must be dimensioned as twice NITEMS where it 
first appears. The reader may wish to refer to the AUNIT 
series routines of Chapter 7 as examples of where menus 
are used to define integer values. 

PMPREP is a logical variable which, when .TRUE., 
indicates that function ISCPMP will prepare the prompting 
message for the menu or INTIN. INTIN is a DEX routine 
which reads integer values entered from the terminal . 
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If PMPREP= . FALSE . , the calling program supplies the 
prompting message in PMES. 

PMES can be up to 64 characters long, and if less 
than 64 characters it must include the trim character, 

"<", last to signal the end of the string. Note that 
if PMPREP= . TRUE . , PMES is undefined in the calling se- 
quence of ISCLDR. 

PMORGN ("prompting message origin") is a character 
string, usually the database comment, which identifies 
the variable sought. Like PMES, it must be 64 charac- 
ters or less long and must include the trim character at 
its end if less than 64. When I0M0DE=1, PMORGN will be 
compared with the database comment and differences brought 
to the user's attention. 

RNFILE, corresponding to RNRFIL of the calling 
program, is the device number for Fortran READ if the 
integer is to be read from a file. FORMAT is the format 
for reading from the file. DEFALT is the default value 
of the integer sought when I0M0DE=5. 

4 . 2 . 1 . 2 Characteristics . When the source 
of the integer is the terminal, ISCLDR invokes routine 
CHKRNG to verify that NITEMS is between 1 and 12 inclusive 
when MENUFL= .TRUE. . If PMPREP= . TRUE . , ISCLDR invokes 
ISCPMP to prepare the prompting message. If ISCPMP is 
returned .FALSE., ISCLDR is also set to .FALSE, and 
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control returns to the calling program. Otherwise, for 
terminal input, as well as database, file and default 
value input, ISCLDR calls logical function ISREAD to do 
the reading. ISCLDR is set to .TRUE, or .FALSE, depending 
on the similar value of ISREAD and control returns to 
the calling program. 

ISCLDR becomes .FALSE, if ISCPMP or ISREAD fails. 

It also becomes .FALSE, if the programmer has bypassed 
previous checks and set I0M0DE=3. The user is informed 
by ISCLDR that integer scalars cannot be read in from a 
screen supplying x-y coordinates. The subprogram then 
checks VITAL and if .TRUE. , it advises the user that the 
variable is essential for program continuation and must 
be corrected. Then, if ALLFLG= .TRUE . , it is changed to 
.FALSE, and the user is advised that the calling program 
"all" option is aborted. ISCLDR is set to .FALSE, and 
control returns to the calling program. 

4.2.2 ISCPMP 

4. 2. 2.1 Calling sequence . Logical function 
ISCPMP is used to prepare a prompting message suitable 
for identifying the integer being sought when the source 
is the terminal (I0M0DE=2) and PMPREP=.TRUE. . The 
calling sequence for this function is as follows: 

LOGICAL FUNCTION ISCPMP (PMES ,ALLFLG,MTERSE ,NCPW, 

DBNAME , VITAL , MENUFL , PMORGN) 
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These parameters have been described in section 4. 2. 1.1 
PMES is the output variable where the prompting message 
sought is stored. MTERSE is needed here to determine 
whether a brief or long message is to be prepared. 

MENUFL is included here but presently it is not used by 
ISCPMP. 

4. 2. 2. 2 Characteristics . ISCPMP creates 
the prompting message by insering the word "ENTER", 
followed by a short or long description of the variable 
depending on MTERSE, into PMES. When the dialogue is 
verbose, PMORGN is used as the indentifying string. The 
program scans it for the location of the trim character 
to determine its length. If the string is 51 characters 
or less, the message can be fit on one line. "ENTER" 
and "PMORGN" are copied into PMES. If, however, PMORGN 
has more than 64 characters, the prompting message must 
be two lines long. The word "ENTER" is printed immediately 
and PMORGN alone is copied onto PMES, to be printed by 
ISREAD. 

When the dialogue is terse, PMES is created from 
"ENTER" and the database name, DBNAME, with a trim 
character added at the end. 

If a failure occurs in preparing the prompting 
message, an error message is used. Then, when VITAL= 
.TRUE., the user is advised that the variable is 
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necessary for program input continuation and the 
problem must be corrected. When both VITAL and ALLFLG 
are .TRUE., the later changes to .FALSE, and the program 
advises the user that the calling program "all" option 
is aborted. Finally, ISCPMP is set to .FALSE, and con- 
trol returns to ISCLDR. If the message preparation is 
successful, ISCPMP is set to .TRUE, before returning 
control to ISCLDR. 

4.2.3 ISREAD 

4.2. 3.1 Calling sequence . Logial function 
ISREAD actually does the reading of the integer from the 
source defined by lOMODE. The calling sequence for 
ISREAD is as follows: 

LOGICAL FUNCTION ISREAD ( I VAR , ALLFLG , 

MTERSE , lOMODE , NCPW, DBNAME , VITAL 
MENUFL , MENUNM , NITEMS , ITEMS , 

PMES , RNF ILE , FORMAT , DEFALT ) 

It is almost identical to ISCLDR, the difference being 
that PMPREP is no longer needed. PMES should be defined 
here and it must include the trim character if not 64 
characters long. 

4. 2. 3. 2 Characteristics . ISREAD branches 
depending on the value of lOMODE. If the source of the 
integer is a database (I0M0DE=1) , ISREAD extracts the 
value using the DEX integer function IGET (see reference 
[5]). IGET provides error codes which, if other than 
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success, cause appropriate error feedback messages to be 
issued. 

When I0M0DE=2 (terminal input), and MENUFL= . TRUE . , 
routine MENUIN is invoked to obtain IVAR from the menu 
selection. When a menu is not employed, DEX routine 
INTIN prompts the user to supply the integer value and 
reads what is entered at the terminal. 

For I0M0DE=4 (file source) , ISREAD uses a Fortran 
READ statement, involving RNFILE and FORMAT, to read from 
the file. The program issues a warning if a premature 
end-of-file is encountered. 

Whenever an error occurs in the reading, or if the 
user insists on trying I0M0DE=3, VITAL and ALLFLG are 
checked. A warning that the variable is essential for 
program continuation is issued when VITAL= .TRUE. . ALLFLG 
will then be set to .FALSE, if not already. ALLFLG ' s 
value will also be changed, even if the variable is not 
essential, if either no open database was found (I0M0DE=1) 
or a premature end-of-file is encountered (I0M0DE=4) , 
since further attempts at reading from these sources 
would be fruitless. In all cases of errors, ISREAD is 
set to .FALSE, and control is returned to the calling 
program. When the reading is successful, ISREAD is set 
to .TRUE. . 
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4.3 Real Scalar Series 



4.3.1 Brief description . The function of this group 

of routines is to permit the user to read real scalar 
values from any of the designated sources. Three logical 
functions make up this series: RSCLDR, RVAPMP and 

RSREAD . RVAPMP prepared prompting messages for reading 
both real scalars and real arrays from the terminal. 

4.3.2 RSCLDR 

4. 3.2.1 Calling sequence . Logical function 
RSCLDR is invoked from the module. Its calling sequence 
is as follows: 

LOGICAL FUNCTION RSCLDR (RVAR, ALLFLG , 

MTERSE, IOMODE,NCPW, 

DBNAME , UNITFM , UNITFA , UNITNM , VITAL 
PMPREP , PMES , PMORGN , RNFILE , FORMAT , 
DEFALT) 

Many of these variables are identical to those used in 
ISCLDR. 

RVAR will be assigned the value, in program standard 
units, of the real number to be read. UNITFM and UNITFA 
are respectively the multiplicative and additive conver- 
sion factors which convert the real scalar read from the 
user input/output units to the program units. The con- 
version occurs in RSREAD. UNITNM is a 12-character ver- 
sion (including blanks) of the user i/o units, which is 
used in preparing the prompting message. If the real 
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scalar is not dimensional, UNITFM must be equal to 1.0, 
UNITFA must equal 0.0 and UNITNM is undefined. 

PMORGN contains a string of 64 characters or less 
which identify the variable sought. If it has less than 
64 characters it must have the trim character at the 
end of the string. If the real variable has units, 

PMORGN should contain the string "(????????????)" into 
which UNITNM is inserted at the appropriate time. PMES 
must be dimensioned sufficiently large to accomodate 
PMORGN plus 6 characters (for "ENTER ") or 64 characters, 
whichever is less. 

4. 3. 2. 2 Characteristics . RSCLDR behaves 
similarly to ISCLDR. If the source is the terminal and 
PMPREP= .TRUE . , it calls RVAPMP to prepare a prompting 
message. When the preparation is unsuccessful, RVAPMP 
is returned .FALSE.. RSCLDR becomes .FALSE, also and con- 
trol returns to the calling program. If, however, the 
message preparation is successful, or for IOMODE=l, 4 
or 5, RSCLDR calls RSREAD to read the real value. RSCLDR 
is set to .TRUE, or .FALSE, depending on the success or 
failure of RSREAD. 

When IOMODE=3, RSCLDR informs the user that reading 
x-y coordinates from a graph on the screen in inappropiate 
for real scalar input. If VITAL= .TRUE . , it issues an 
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advisory message to the user that the variable is essential 
for program continuation. ALLFLG is changed to .FALSE, 
if not already, with a warning that the "all" option is 
aborted, RSCLDR is set to .FALSE., and control returns 
to the calling program. 

4.3.3 RVAPMP 

4. 3. 3.1 Calling sequence . Both RSCLDR and 
RAlLDR invoke RVAPMP to prepare a prompting message for 
real scalars and real arrays respectively. The calling 
sequence is: 

LOGICAL FUNCTION RVAPMP (PMES , ALLFLG, 

MTERSE , NCPW, DBNAME , UNITNM , VITAL , 
PMORGN) 

These parameters are identical to those for ISCPMP ex- 
cept for UNITNM which carries the user i/o unit to be 
inserted into PMES . 

4. 3. 3. 2 Characteristics . When RVAPMP is 
invoked, PMORGN is scanned for the location of the trim 
character and for the string "(????????????)" called 
UNITPT. The presence of UNITPT indicates that the vari- 
able is dimensional. 

When the dialogue is verbose, the prompting mes- 
sage will be one line long if the trim character is 
found before the 59th position. The word "ENTER " and 
PMORGN are copied into PMES, and UNITNM is inserted 
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into UNITPT if applicable. This is why UNITNM must be 
12 characters long. If PMORGN is longer than 58 charac- 
ters, the prompting message will be two lines long. The 
string "ENTER" is printed immediately and PMORGN alone 
is copied into PMES, corrected by UNITNM if necessary. 
PMES will be the second line of the prompting message. 

When the dialogue is terse, PMES is created from 
the word "ENTER ", followed by DBNAME, UNITPT adjusted 
by UNITNM, and lastly a trim character. 

If the message preparation is successful, RVAPMP 
is set to .TRUE, and control returns to RSCLDR or RAILDR 
as applicable. If, however, an error occurs, VITAL is 
checked. The user is advised that the variable is es- 
sential when VITAL= .TRUE . . If ALLFLG also is .TRUE., 
it is changed to .FALSE, and the user told the "all" 
option is no longer in effect. In all cases of error, 
RVAPMP is returned as .FALSE, to the calling program. 

When successful, RVAPMP is set to .TRUE, before returning 
control . 

4.3.4 RSREAD 

4. 3. 4.1 Calling sequence . Logical function 
RSREAD reads the real scalar sought from one of the four 
valid sources of information. It includes 13 parameters 
in its calling sequence, almost all of which are identi- 
cal to those in RSCLDR. The sequence is listed here: 
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LOGICAL FUNCTION RSREAD (RVAR, ALLFLG 

MTERSE , lOMODE , NCPW, DBNAME , 
UNITFM,UNITFA, 

VITAL , PMES , RNFILE , FORMAT , DEFALT) 
Note the absence of UNITNM, PMPREP and PMORGN. These 
variables have either been used or incorporated into 
PMES, which is defined at this point. 

4. 3, 4. 2 Characteristics . If the source of 
information is indicated to be the user hoping to input 
x-y coordinates from the screen, he is informed that this 
mode of input is inappropriate for real scalar input. 

The usual checks of VITAL and ALLFLG and messages occur. 

The DEX routine RGET is used to read the real 
scalar from the database and it returns error codes for 
either success or the problems which can occur. The 
latter are brought to the user's attention. DEX routine 
REALIN (reference [5] ) is used to read the real scalar 
from the terminal. 

In cases where an error occurs, the user is informed 
if the variable is essential for input continuation. 

When VITAL and ALLFLG are both .TRUE., ALLFLG is set to 
.FALSE, and the user is infonned. Further, if I0M0DE=1 
but there is no open database, or I0M0DE=4 but a pre- 
mature end-of-file is encountered, ALLFLG is set to 
.FALSE, regardless of the value of VITAL. 
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RSREAD is set to .TRUE, if successful and .FALSE. 



if an error occurs, and control is then returned to the 
calling program. When successful, prior to returning 
control, the value read is converted into program stan- 
dard units by the expression 

RVAL=RVAL * UNITFM + UNITFA 

4 . 4 Real Array Series 

4.4.1 Brief description . The real array reading 
routines include RAILDR and RAIRED, plus RVAPMP which is 
shared with the real scalar series. Their function is 
to read one dimension real arrays, up to the current 
DEX limit of 200 elements, from any of the four valid 
sources of input. The reading of x-y coordinates from 
the screen, while legitimate for an array since it can 
store a pair of real numbers, has not been implemented 
yet and the user is advised of this. The next generation 
of DEX at MIT will include routines for reading and 
writing two arrays simultaneously for graphics tasks. 

4.4.2 RAILDR . 

4. 4. 2.1 Calling sequence . Logical function 
RAILDR invokes RAlRED to read a real array from the 
designated source. It also calls RVAPMP as necessary to 
prepare a prompting message for terminal input. Its 
calling sequence, listed here, has a few parameters not 
seen in RSCLDR: 
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LOGICAL FUNCTION RAILDR (RlARR,ALLFLG,NGOT, 

MTERSE , lOMODE , NCPW, DBNAME , 

MXTOGT , UNITFM , UNITE A , UN ITNM , 

VITAL 

PMPREP , PMES , PMORGN , RNFILE , FORMAT , 
NDEF, DEFALT) 

RlARR is the real array that will store the elements, in 
program standard units, that are read. MXTOGT repre- 
sents the maximum number of elements to be read into 
RlARR, and is the dimensioned size of RlARR. NGOT is 
the number of elements actually read and can be less than 
or equal to MXTOGT. NGOT need not be defined when RAILDR 
is invoked. NDEF is the number of default values and is 
provided to allow the default condition to be smaller 
than the maximum capability of the array. 

4. 4. 2. 2 Characteristics . When I0M0DE=2 
and PMPREP= . TRUE . , RAILDR invokes RVAPMP to prepare 
PMES. When RVAPMP is successful, and for the other 
valid sources of input (I0M0DE=1, 4 or 5) , RAILDR calls 
RAIRED. If either RVAPMP or RAIRED are not successful, 
RAILDR is set equal to .FALSE. . This also occurs when 
I0M0DE=3. It is set to .TRUE, otherwise and control is 
returned to the calling program. 

4.4.3 RAIRED 

4. 4. 3.1 Calling sequence . The calling 
sequence for RAIRED is as follows: 
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LOGICAL FUNCTION RAIRED (RlARR, ALLFLG, NGCT 

MTERSE , lOMODE , NCPW, DBNAME ,MXTOGT , 
UNITFM , UNITFA , VITAL , 

PMES , RNF ILE , FORMAT , NDEF , DEFALT ) 

Like in REREAD, UNITNM, PMPREP and PMORGN are no longer 
required. MXTOGT represents the maximum number of ele- 
ments to be read into RlARR, always starting at position 
1. NGOT is defined in RAIRED. 

4. 4. 3. 2 Characteristics . RAIRED first 
employs DEX routine CHKRNG to verify that MXTOGT is not 
greater than the maximum DEX array size (currently 200 
elements) . 

If IOMODE=3, the real array is not read and the 
appropriate checks of VITAL and ALLFLG and message 
issuing occur. 

The reading of an array from a database is accomp- 
lished by DEX routine AGET, which seeks MXTOGT elements 
from the database array. AGET returns six possible re- 
sult codes. RCODE=0 is simple success, that is, there 
were MXTOGT elements stored in the database array. NGOT 
is set equal to MXTOGT. If RCODE=l, there was no open 
database. This causes ALLFLG to change to .FALSE, if 
it was .TRUE, and RAIRED to be set to .FALSE. . RAIRED 
is also set to .FALSE, if the variable does not exist in 
the database (RCODE=2), if it is not an array (RCODE=3) , 
of if it was undefined (RCODE=4) . When the number of 
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elements requested exceeds the number stored (RC0DE=5) , 
the extra elements in RlARR are set equal to 0.0 but 
NGOT is set equal to the number stored. When the number 
of elements requested is less than the number of elements 
stored (RCODE=6), the first MXTOGT elements are read into 
RlARR and NGOT is set equal to MXTOGT. The user is ad- 
vised in these circumstances of what has occurred. 

When reading from the terminal, DEX logical function 
REALIN is invoked with the following statement: 

LOGVAL = REALIN (MXTOGT, NEED, RlARR, PMES) 

A prompting message asks the user to input up to MXTOGT 
values. NEED represents the difference between the 
number of elements read in and MXTOGT. If no elements 
are read (NEED=MXTOGT) the reading is considered a failure. 
The reading is considered successful if at least one num- 
ber is entered. NGOT is set equal to the number of ele- 
ments entered. 

The user is advised if a premature end-of-file is 
encountered when reading from a file. 

When failures occur, VITAL and ALLFLG are processed 
as usual. Then RAIRED is set to .FALSE, and control 
returns to the calling program. If the reading is 
successful, the elements are converted into program 
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standard units by a DO loop for NGOT iterations with the 
statement 

RIARR(I) = RIARR(I) *QNITFM + UNITFA 
Then RAIRED is set to .TRUE, and control returns to the 
calling program. 
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CHAPTER 5 



THE EXTENDED DEX LIBRARY EDITING ROUTINES 

5 . 1 General Description 

At some point in the operation of a program the 
user may decide that he wants to change the value of one 
or many variables. It may be that the value read as in- 
put is incorrect, or he wants to see the effect of changing 
one variable on the output. He may even decide he does 
not like the answer given by his program and, before 
storing it in a database or file, wishes to exchange it 
for another value he has. For whatever reason, the user 
requires the capability to enter the new value at the 
terminal. The editing routines were developed for this 
purpose . 

Currently there are two logical functions in this 
category, ISCEDT and RSCEDT, with a third RAREDT, 
scheduled to be developed for the next version of the 
extended DEX library. ISCEDT allows the editing of 
integer scalar variables, RSCEDT allows the editing of 
real scalars, and RAREDT will allow the changing of 
elements in a real array. 
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5 . 2 Logical Function ISCEDT 



5.2.1 Calling sequence . Logical function ISCEDT 
would be invoked by a module subprogram, normally when 
lOFLAG is set equal to 2 in a subroutine like MAINPG 
described in Chapter 2. The calling sequence includes 
15 parameters listed here: 

LOGIAL FUNCTION ISCEDT (NEWVAR, ALLFLG , 

MTERSE , NCPW , DBNAME , 

MENUFL , MENUNM , NITEMS , ITEMS , 
PMPREP , PMES , PMORGN , RNFILE , 
FORMAT, DEFALT) 

For ISCEDT, the first parameter is an output variable, 
ALLFLG is both input and output, and the remainder are 
all input variables. 

NEWVAR will store the new value of the integer 
variable being changed. ALLFLG indicates the status of 
the calling program "all" option. Its value may be 
changed from .TRUE, to .FALSE, during the editing 
sequence. 

Logical variable MTERSE indicates the type of mo- 
dule dialogue: terse or verbose. NCPW represents the 
number of characters per word assumed by DEX routines, 
and is dependent upon the particular computer in use 
DBNAME is the 8-character database name of the integer 
sought . 

When MENUFL= .TRUE . , the integer being sought is a 
menu selection. The eight-character menu name is stored 
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in MENUNM. NITEMS is the number of menu items, and it 
cannot exceed 12. ITEMS is where the menu choices are 
stored. Each item is described by an eight-character 
name (including blanks) , so that, at four characters per 
word, ITEMS should be dimensioned as 2*NITEMS. 

Since the new integer value will be entered at the 
terminal, a prompting message is required. PMPREP is a 
logical variable which indicates if the program is to 
prepare the message (.TRUE.) or if it is supplied by the 
calling program (.FALSE.). PMES is where the prompting 
message is stored. It can be up to 64 characters long, 
and if less it must include the trim character, "<", at 
its end. If PMPREP= .TRUE . , PMES is undefined in ISCEDT. 

PMORGN stores the information describing the vari- 
able in question. It is typically the- database comment. 
PMORGN can be up to 64 characters long and requires the 
trim character if less. Because PMORGN is used to pre- 
pare the prompting message when the dialogue is verbose, 
if PMPREP= .FALSE. , it need not be defined in ISCEDT. 

RNFILE is the reference number for reading from a 
sequential file using Fortran READ and corresponds to 
RNRFIL in the calling program. FORMAT stores the for- 
mat for reading from a file. DEFALT is the default 
value of the integer in question. 
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5.2.2 Operation . The task of ISCEDT is actually 



quite simple. In order to read a new integer from the 
terminal, ISCEDT merely invokes ISCLDR, using the vari- 
able EDMODE, which has a value of 2, in place of IMODE . 
ISCLDR then prepares a prompting message, if necessary, 
and calls ISREAD to read the value entered, ISCEDT is 
set to the same value with which ISCLDR is returned 
(i.e., .TRUE, for success), and control returns to the 
calling program. 

In calling ISCLDR, ISCEDT defines the parameter 
VITAL as .TRUE, in all cases. This stems from the policy 
that if the user wishes to correct a value, he really 
wants to correct it for program continuation. Failure 
of any of the integer reading routines would change 
ALLFLG if it was .TRUE, when ISCEDT was invoked. 

It may not be readily apparent to the reader, but 
because the source will always be defined as the terminal 
by ISCEDT, the calling parameters RNFILE, FORMAT and 
DEFALT, used only when IM0DE=4 or 5, need not be defined 
here. In fact, dummy variables could have been used. It 
was decided to use the correct variables in the calling 
sequence to avoid potential errors by creating more 
variables. The ones used should already be available in 
the module, being needed for reading and writing integer 
values . 
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5 . 3 Logical Function RSCEDT 



5.3.1 Calling parameters . Logical function RSCEDT 
is invoked by the module to permit the editing of a real 
scalar variable. Its calling sequence is as follows: 

LOGICAL FUNCTION RSCEDT (NEWVAR,ALLFLG , 

MTERSE , NCPW, DBNAME , 

UNITFM , UNITFA , UNITNM , 

PMPREP , PMES , PMORGN, RNFILE, 
FORMAT, DEFALT) 

All of the parameters except NEWVAR are input variables, 
and ALLFLG is both an input and output variable. 

Most of these parameters are identical to those 
used in ISCEDT. Three are new. UNITFM and UNITFA are 
respectively the multiplicative and additive conversion 
factors for converting the real scalar read in user i/o 
units to the value NEWVAR in program standard units. 
UNITNM is a 12-character version (including blanks) of 
the user input/output units of the variable, and is used 
in preparing the prompting message when PMPREP= .TRUE . . 

5.3.2 Operation. RSCEDT behaves very similarly 
to ISCEDT. It calls RSCLDR with the variable EDMODE, 
defined as 2, in lieu of IMODE (terminal source) and 
VITAL specified as .TRUE.. The real scalar reading 
routines accept a value entered at the terminal, convert 
it to program standard units and store it in NEWVAR. If 
a failure occurs, ALLFLG changes to .FALSE, if it was 
.TRUE, when RSCEDT was invoked. 
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RSCEDT is set to the same value as RSCLDR (.TRUE, 
if NEWVAR is successfully read in, .FALSE, if an error 
Qccurred in the reading sequence) and control is re- 
turned to the calling program. 

One can see that the editing routines are essen- 
tially another version of the reading routines. Current 
plans for the array editor anticipate extending this 
capability to include reorganizing the entries and in- 
serting new values for whichever element or group of 
elements is specified by the user. Further, it is hoped 
that throught the editor, it will be possible to execute 
the calculation siibprograms only for those elements 
changed in order to reduce computing costs. It may be 
that these options will be operated by the user by means 
of editing menus also. In short, the goal will be to 
simulate the editor capability of an interactive system 
such as CMS at MIT. 
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CHAPTER 6 



THE EXTENDED DEX LIBRARY WRITING ROUTINES 

6 . 1 General Description 

Once information has been read, edited or computed, 
unless it is to be used as input for computations, it is 
necessary to transmit it to one of three possible desti- 
nations: a DEX-created database, the terminal or a sequen- 
tial file. Further, for our purposes, a distinction shall 
be made between writing alphanumeric characters on the 
terminal screen via DEX routines and plotting the infor- 
mation on the screen as a graph. In the current version 
of DEX at MIT the plotting option is not yet implemented. 

The function of the extended DEX library writing 
routines, described in this chapter, is to permit the 
transmission of the information to the three valid desti- 
nations. Eight logical functions comprise this group of 
routines, and, like the reading routines, they can be 
categorized by either type of variable handled or by 
function. They are listed here by the first method: 



Integer 


Real 


Real 


Scalar 


Scalar 


Array 


ISCDMP 


RSCDMP 


RARDMP 


ISDSCR 


RVDSCR 




ISRITE 


RSRITE 


RARITE 



Both the real scalar and real array series share RVDSCR. 
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The top routines, called the "dumpers", serve a 
function similar to that of the loaders of the reading 
routines. They screen out requests to perform plotting, 
call the "descripters " , if necessary, to prepare descrip- 
tion messages for identifying the values when writing on 
the terminal, and invoke the "writers" to do the actual 
writing to the destination. 

One general observation concerning the writing 
routines which is best made here is that the concept of 
"essential" variables, which was introduced in the chapter 
on the reading routines, is not employed. This affects 
the execution of a calling program all option. The 
premise is that when writing all the values from a menu, 
the failure to write one should not prevent the writing 
of the remainder. The user can go back and analyze why 
the one was not successful without having to rewrite all 
of the variables from the menu. The only case where the 
all option is aborted is where the destination is a data- 
base and no database is found open. Rather than getting 
a string of similar messages announcing this fact, the 
writing sequence is halted. 
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Integer Scalar Series 



6.2.1 ISCDMP 

6.2.1. 1 Calling sequence . Logical function 
ISCDMP is the supervisory subroutine for writing integer 
scalar values and is the subroutine which appears in 
module subprograms. The calling sequence contains eleven 
parameters and is listed here: 

LOGICAL FUNCTION ISCDMP (ALLFLG ,MTERSE , lOMODE, NLPW, 

IVAR , DBNAME , DMORGN , 

DMPREP , DMES , RNFILE , FORMAT) 

In accordance with DEX practices, the output variables 
come first in the calling sequence. ALLFLG is both an 
input and output variable for ISCDMP, being defined at 
the invocation and capable of having a different value 
when ISCDMP is returned to the module subprogram. ALLFLG 
contains the information about the calling program all 
option. 

The remaining parameters are exclusively input 
variables from the point of view of ISCDMP. MTERSE indi- 
cates the type of module dialogue. NCAW is the number 
of characters per word assumed by the DEX routines. 
lOMODE corresponds to OMODE in the module calling program 
and represents the destination of the information to be 
written. As a reminder, its values are repeated here: 
I0M0DE=1: a DEX-created database 
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I0M0DE=2 : the terminal using DEX routines 

I0M0DE=3: the screen using plotting routines 

I0M0DE=4: a sequential file using a formatted 
WRITE statement 

IVAR is the integer value which is to be written. 
DBNAI>1E is the 8-character database name of the variable. 
DMORGN is a string of up to 64 characters which describes 
the variables. It is usually the database comment. If 
it has less than 64 characters it must include the trim 
character " < ” . The routines in this series assume that 
integer variables have no units . 

DMPREP is a logical variable which, if .TRUE., 
means that the description message is to be prepared by 
ISDSCR. In this case, DMES is undefined. DMES is where 
the description message is stored. If the dialogue is 
verbose it can -be up to 64 characters by, whereas if the 
dialogue is terse it will only contain DBNAME. If 
DBPREP= .FALSE . , DMES must be provided by the module and 
must include the trim character if it is less than 64 
characters long. 

RNFILE is the file reference number for writing to 
a sequential file. It corresponds to RN^VFIL in the 
calling program. FORiiAT contains the format to be used 
to write the integer available to the file. 
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6 .2. 1.2 Characteristics. ISCDMP first 



checks the destination pointer. If IOMODE=3 , the user 
is informed that plotting is an improper mode of output 
for an integer scalar value and ISCDMP is set to .FALSE, 
before returning control to the calling program. 

If I0M0DE=2 and DMPREP= .TRUE . , ISCDMP calls ISDSCR 
to prepare the description message for identifying the 
integer when it is written to the terminal. When this 
is successfully accomplished, or when I0M0DE=1 or 4, 
ISCDMP invokes ISRITE to actually perform the writing. 

If either ISDSCR or ISRITE is returned .FALSE., 
ISCDMP is also set to .FALSE, and control is returned to 
the calling program. Otherwise, it is set to .TRUE, 
prior to returning control. 

When invoking ISRITE, a new logical variable, 
DBCHNG, is introduced. It is included in anticipation 
of future capabilities of DEX and indicates when a change 
is made to a database value. This will alert the user 
to check other variables which are dependent on the value 
of the integer being written. Currently DBCHNG is 
initialized as .FALSE, in ISCDMP. 

6.2.2 ISDSCR 

6. 2. 2.1 Calling sequence . Logical function 
ISDSCR prepares a description message suitable for 
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identifying the integer available when it is to be written 
on the terminal. Its calling sequence lists the perti- 
nent parameters provided by ISCDMP: 

LOGICAL FUNCTION ISDSCR (DfffiS ,MTERSE ,NCPW, DENA^^E , DMORGN) 
The value of logical variable MTERSE dictates whether the 
description message, to be stored in DMES, will be brief 
or long. NCPW is used by the DEX routines which manipu- 
late character strings to produce the message. 

6. 2. 2. 2 Characteristics . If the dialogue 
is verbose, DMORGN, which contains a string of up to 64 
characters describing the integer variable in question, 
is inserted into DMES. For terse dialogue, DBNAME is 
copied into the description message. If the insertion 
is successful, ISDSCR is set to .TRUE, and control re- 
turns to ISCDMP. If not, an error message is issued 
and ISDSCR is returned .FALSE.. 

6.2.3 ISRITE 

6.2.31. Calling sequence . Logical function 
ISRITE actually writes the integer available to the 
specified destination. Its calling sequence is as 
follows ; 

LOGICAL FUNCTION ISRITE (ALLFLG , DBCHNG , MTERSE , lOMODE , 

NCPW, 

IVAR , DBNAME , DMORGN , DMES , RNF ILE , 
FORMAT) 
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Logical variables ALLFLG and DBCHNG are defined when 
ISRITE is invoked. DBCHNG is always .FALSE., and will 
become .TRUE, if a change is made to the integer variable 
DBNAME in the database. DMES is always defined when 
ISRITE is invoked so DMPREP is no longer needed. DMORGN 
is required because it may be used for comparison with 
the database comment. 

6. 2. 3. 2 Characteristics . If the destination 
of the integer available is a database, ISRITE first 
attempts to extract an existing value by DEX routine 
IGET (reference [5]). If no database is open, ALLFLG 
is changed to .FALSE, if it was not already, with an 
appropriate message being issued to the user. If the 
variable is defined in the database, and it is different 
from the integer available, both are presented for the 
user's inspection. The user then specifies which is to 
be placed in the database. The new value is inserted by 
DEX routine IPUT (Reference [5]) and DBCHNG becomes 
.TRUE. . If the variable was not defined, the new value 
is automatically inserted. Once this is accomplished, 
the database comment is compared to DMORGN and, if dif- 
ferent, they are presented for the user's inspection. 
Again, he specifies which is to be the final database 
comment . 
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When writing to the terminal, an output message 



is created from DMES, the string " = " and the integer 
value. The entire message is then printed by DEX 
routine MESOUT. 

If I0M0DE=3, the user is informed that plotting is 
an improper mode of output for an integer scalar. In 
this case, and other cases where the writing is unsuc- 
cessful, ISRITE is returned .FALSE, to the calling 
program. Otherwise it is set to .TRUE, prior to re- 
turning control. 

6 . 3 Real Scalar Series 
6.3.1 RSCDMP 

6. 3. 1.1 Calling Sequence . RSCDMP is the 
subprogram that normally appears in the module for 
writing a real scalar value to the designated source. 

Its calling sequence includes 14 parameters: 

LOGICAL FUNCTION RSCDMP (ALLFLG ,MTERSE , lOMODE , NCPW, 

RVAR , D BN AME , UN I TFM , UN I TF A , 
UNITNM, 

DMPREP , DMES , DMORGN , RNFIL , 
FORMAT) 

All of these parameters are input variables with respect 
to RSCDMP except ALLFLG, whose value may be changed 
during the writing sequence. RVAR stores the value of 
the real scalar available to be written. UNITFM and 
UNITFA are respectively the multiplicative and additive 
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conversion factors for converting the real value in 
program standard units to input/output units prior to 
the writing. UNITNM is a 12-character version (including 
blanks) of the input/output unit name. DMPREP indicates 
if the description message, DMES, is to be prepared by 
RVDSCR. 

DBNAME is an 8-character name of the real scalar 
and DMORGN is a string of up to 64 characters which 
identifies the variable. If the variable is dimensioned, 
DMORGN contains the string "{????????????)", referred to 
as UNITPT, into which UNITNM will be inserted. DMORGN 
must include the trim character if it is less than 64 
characters long. RNFILE, corresponding to RNWFIL of the 
module calling program, is the file writing device number. 
FORMAT contains the format for writing to a file with a 
formatting Fortram WRITE statement. 

6. 3. 1.2 Characteristics . RSCDMP has three 
tasks: to screen out requests to plot a real scalar, to 
call RVDSCR if DMPREP=.TRUE. and I0M0DE=2, and to call 
RSRITE to perform the actual writing. If I0M0DE=3, 

RSCDMP issues a message informing the user that this is 
not possible. In this case, of if either RSDSCR or RSRITE 
are returned .FALSE., RSCDMP is set to .FALSE, and con- 
trol is returned to the calling program. If the called 
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functions are returned .TRUE., RSCDMP is also set to 
.TRUE, before returning control to the calling program. 

In invoking logical function RSRITE, the logical 
variable DBCHNG is introduced. It is initialized in 
RSCDMP as .FALSE.. If, when executing RSRITE the vari- 
able value is changed in the database, DBCHNG is returned 
to RSCDMP as .TRUE.. In future versions of DEX, RSCDMP 
will pass the value of DBCHNG back to the calling program 
to alert the user to check other variables which are 
dependent on RVAR. 

6.3.2 RVDSCR 

6. 3. 2.1 Calling sequence . In the same man- 
ner as RVAPMP, RVDSCR is shared by both the real scalar 
and real array series. Its function is to prepare a 
description message suitable for identifying the values 
being written on the terminal. It is invoked by either 
RSCDMP or RARDMP using the following calling sequence; 

LOGICAL FUNCTION RVDSCR (DMES , MTERSE , NCPW, DBNAME , 

DMORGN,UNITNM) 

DMES is undefined when RVDSCR is invoked. The other 
parameters are all input variables from this function's 
point of view. They have all been described in either 
section 6. 2. 1.1 or 6. 3.1.1. 
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6. 3. 2. 2 Characteristics. If the module 



dialogue is verbose (MTERSE= .FALSE .) , the description 
message is formed by copying DMORGN into DMES . If the 
real scalar being written has units, RVDSCR inserts the 
12 -character unit name UNITNM into the string UNITPT, 
"(????????????)”, which is now in DMES by virtue of 
having been in DMORGN. If the dialogue is terse, then 
RVDSCR copies DBNAME into DMES. It then scans DMORGN 
for UNITPT, and if it finds it, copies UNITPT into DMES 
following DBNAME and replaces the question marks with 
UNITNM. If DMES is successfully prepared, RVDSCR is 
returned .TRUE.. Otherwise it issues an error message, 
is set to .FALSE., and returns control to the calling 
program (either RSCDMP or RARDMP) . 

6.3.3 RSRITE 

6. 3. 3.1 Calling sequence . Logical function 
RSRITE is used to write a real scalar to the valid 
specified destination. Its calling sequence is as 
follows : 

LOGICAL FUNCTION RSRITE (ALLFLG , DBCHNG , MTERSE , lOMODE , NCPW, 

RVAR , DBNAME , UNITFM , UNITFA , UNITNM , 
DMORGN , DMES , RNF ILE , FORMAT ) 

This is similar to RSCDMP with three exceptions. DBCHNG 
is a logical variable which is always .FALSE, when RSRITE 
is invoked. DMPREP is no longer needed since in all 
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cases DMES is now defined. DMORGN is still requried 
because it will be compared with the database comment. 

6. 3. 3. 2 Characteristics . RSRITE first 
converts the real scalar value from program standard 
units to user input/output units, stored in variable 
TVAR, by the statment: 

TVAR = (RVAR-UNITFA)/UNITFM 
If I0M0DE=1, the database is first checked to see 
if a value in question already exists. If the database 
is found closed, RSRITE alerts the user and changes 
ALLFLG to .FALSE, if it was not already so. If the 
variable does not exist in the database, it is inserted 
using DBNAME, TVAR and DMORGN (corrected for units if 
applicable) as its name, value and database comment. 

If the variable exists but is not a real scalar, RSRITE 
informs the user and is set to .FALSE.. 

If the variable exists and is defined, its value 
is compared to TVAR and the user is presented with both 
if there is a difference. He then is asked which value 
he wants in the database and the chosen one is written 
(or left) in. RSRITE then compares the existing data- 
base comment to the one specified by DMORGN and writes 
them both for the user's inspection if they are dif- 
ferent. The user then specifies which one is to be the 
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database comment. This step is crucial in insuring that 
the correct units for TVAR exist in the database comment. 

When writing to the terminal, an output message is 
constructed using DMES , the string " = " and the real 
value. This message is then printed by DEX routine 
MESOUT. 

If I0M0DE=3 despite the previous checks , the user 
is informed that a plot cannot be used for writing a 
real scalar value, and RSRITE is returned .FALSE. . 

RSRITE is set to .FALSE, in all cases where the real 
value is not successfully written and control is then 
returned to the calling program. Otherwise it is 
returned .TRUE, to RSCDMP. 

6 . 4 Real Array Series 

6.4.1 RARDMP 

6. 4. 1.1 Calling sequence . Logical function 
RARDMP is used in the module subprogram for writing a 
real array. It has the same three functions as RSCDMP 
and ISCDmP: to screen out requests to plot graphs, to 
call RVDSCR if needed to prepare a description message, 
and to call RARITE to actually do the writing. It has 
the following calling sequence: 
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LOGICAL FUNCTION RARDMP (ALLFLG , MTERSE , lOMODE , NCPW, 

R1 ARR , DBNAME , NFROM , NTO , 
UNITFM,UNITFA, 

UN I TNM , BMP RE P , DME S , DMORGN , 

RNF I LE, FORMAT) 

A few new parameters deserve explanation. RIARR 
stores the array elements, in program standard units if 
they have dimensions. The array corresponding to RIARR 
in the module should be dimensioned as large as the 
value MXTOGT used in RAILDR for reading the arnay. 

NFROM represents the position in the array at which 
writing commences. It should always have a value of 1, 
specified in the module calling program, except possibly 
when writing to the terminal. If the user is in the 
"editing" versus the "writing" mode of operation, he may 
desire to write only part of an array on the terminal. 

In this case the editing routine specifies NFROM to be 
a value from 1 to NTO inclusive prior to invoking RARDMP. 
NFROM should be 1 when writing the array on the terminal 
when not in the "editing" mode. 

NOT represents the number of elements to be written 
in all cases but one. This exception occurs when writing 
to the terminal in "editing" mode, when NTO indicates the 
last element in the array to be written. Other than 
this case, NTO corresponds to the value NGOT obtained 
when reading the array with the reading routines (i.e.. 
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the actual number of elements read into the array repre- 
sented by RlARR) , and may be less than MXTOGT. 

The other parameters in the calling sequence are 
the same as those in RSCDMP . 

6. 4. 1.2 Characteristics . If I0M0DE=2 and 
DMPREP= . TRUE . , RARDMP invokes RVDSCR to prepare a 
description message suitable for identifying the array 
being written to the terminal. If RVDSCR is successful, 
and for I0M0DE=1 and 4, RARDMP invokes RARITE with the 
statement 

LOGVAL= RARITE (ALLFLG , DBCHNG , MTERSE , lOMODE , NCPW, 

RlARR , DBNAME , NFROM , NTO , UNITFM , UNITFA , 
UNITNM, 

DM0 RGN , DMES , RNF ILE , FORMAT ) 

In this version of DEX, DBCHNG is initialized .FALSE, 
in RARDMP. If a change is made to a database array by 
RARITE it will be changed to .TRUE.. In future versions 
RARDMP will pass the value of DBCHNG back to the user 
via its calling sequence, to alert the user who may wish 
to verify other variables dependent upon this array. 

If I0M0DE=3, RARDMP informs the user that it cannot 
be used to write a real array. In this case, or if 
RVDSCR or RARITE is returned .FALSE., RARDMP is set to 
.FALSE, prior to returning control to the calling program. 
If the two called functions are successful, RARAMP is 
also set to .TRUE.. 
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6.4.2 RARITE . Since the calling sequence for 



RARITE has been described above, this section will only 
discuss RARITE 's characteristics. The task of this 
logical function is to write the real array elements 
available to the proper specified destination. The first 
action it takes is to convert the elements in program 
standard units to input/output units and store them in 
a temporary array. This is done with a DO loop from 
NFROM to NTO and the statement 

RTARR(I) = (RIARR(I) -UNITFA) /UNITFM 
The elements in RTARR are in the units described by 
UNITNM.' . 

If the destination is a database (I0M0DE=1) , it is 
desired to compare the existing array with the new one. 
RARITE first attempts to extract the existing array and 
store it in a working array RXARR using DEX routine AGET 
by the calling sequence 

LOGVAL=AGET ( DBNAME , RXARR , NTO , NSTORD , RCODE ) 

There are six possible result codes returned by AGET. 

If RC0 DE=j 3 , AGET was completely successful in that the 
number of elements stored in the database array (NSTORD) 
is equal to the number requested (NTO) , which is also 
the number of new elements to be stored. If RC0DE=1, 
the database was not open. This will cause ALLFLG to 
change to .FALSE, if it was not already, aborting the 

calling program all option. 
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If DBNAME does not exist in the database (RC0DE=2) 
it is created with DEX function DBVINS, and RTARR is 
stored in it. RTARR is also immediately stored if the 
array DBNAME exists but has no datum stored in it (RCODE 
4) . If DBNAME is not a real array (RC0DE=3) , the user 
is informed. 

The final two result codes are more diabolical. 

If the number of elements stored in the database array 
is less than the number requested by AGET (RC0DE=5) , the 
elements that do exist, plus zeros up to NTO elements, 
are stored in RXARR. The user is advised that this has 
occured, that comparison of the existing values in 
RXARR and the new values in RTARR can be accomplished, 
but that the new values cannot be stored if the user 
decides they are the ones desired. This is because the 
storing of an array is performed by DEX routine APUT via 
the statement 

LOGVAL=APUT (DBNAME , RTARR , NTO , NSTORD , RCODE ) 

Unless NTO=NSTORD, the storing will not occur. All is 
not lost, however'. The user can proceed back to the 
module calling program, exit to the DEX level via the 
"$" command and delete the array with the DEX editing 
capability. He can then return to the module and write 
the array into the database when AGET returns RC0DE=2. 
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The other problem occurs when the number requested 
is less than the number stored (RC0DE=6) . In this case 
NTO elements are stored in RXARR for comparison, but for 
the same reason as above, the user is advised that storing 
the new values will not be possible. 

Once RXARR is established (RCODE=0 , 5 or 6), a 
comparison between its elements and those of RTARR is 
conducted. The criteria for difference is 1.0x10 
The user is informed of how many differences were found 
and asked if an inspection of all the values is desired. 

A partial review is not possible. If the user responds 
affirmatively, the values are listed. UNITNM is printed 
in the heading. RARITE then asks the user to specify 
which group of values (all old or all new) is desired. 

If the user chooses to insert the new values, DBCHNG 
is set to .TRUE, and APUT is called to store the values. 
Error messages will be issued if NTO does not equal 
NSTORD. 

If the writing is successful, or if the old values 
are retained, RARITE proceeds to compare the database 
comment to DMORGN, corrected for units, if applicable. 

When not the same, it prints both and asks the user to 
decide which is correct, storing the one chosen as the 
database comment. If there was no comment already in 
the database, DMORGN is automatically inserted. 
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When the destination is the database, the writing 
is considered successful only when all the new values 
are successfully stored or the old values retained. All 
the other possibilities result in RARITE being returned 
to RARDMP as .FALSE.. 

If I0M0DE=2 , the description message, DMES, is 
printed on the terminal, and then the array is listed 
from position NFROM to NTO. If I0M0DE=3, the user is 
informed that plotting the array cannot be accomplished 
and RARITE is set to .FALSE.. 

When I0M0DE=4 , the array is written to a sequential 
file by a DO loop from 1 to NTO with the statement 

WRITE (RNFILE, FORMAT) NTO, (RTARR(I) ,1=1, NTO) 

In the cases where the writing is successful RARITE 
is set to .TRUE, and control is returned to the calling 
program. 
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CHAPTER 7 



THE EXTENDED DEX LIBRARY UNIT ROUTINES 
7 . 1 General Description 

The module author will invariably write the compu- 
tational subprograms of the module in the unit system 
with which he is most familiar. Frequently, it is not 
the system that the user of the module prefers. The 
tenet of the DEX philosophy to make modules convenient 
to use dictated that this problem be addressed. The 
result was the development of a group of subprograms in 
the extended DEX library which allov; the user to choose 
from a reasonable selection, the units for input and 
output purposes for five basic types of measurement, 
plane angle, force, length, temperature, and time - 
and combinations thereof. 

The twenty-two extended DEX library unit routines 
can be divided into three categories: 

(i) Five subroutines which enable the 
user to choose from the options 
available the preferred input/output 
(i/o) units. 

(ii) Five logical functions which enable 
the module to obtain conversion 
factors which convert the five basic 
user-specified (i/o) units into the 
program standard units (p.s.u.) and 
to obtain the unit names of the i/o 
units for use in prompting and des- 
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cription messages on the terminal and 
database comments. 

(iii) Twelve logical functions which enable 
the module to obtain the conversion 
factors and unit names or special 
names for combinations of the basic 
units . 

This chapter will examine each category. 

7 . 2 The I/O Unit Specifiers 

7.2.1 General Description . The extended DEX 

library includes five subroutines which enable the user 

to read, edit, or write the five basic units he wishes 

to use for input and output. These are listed here; 

AUNIT (plane angle) 

FUNIT (force) 

LUNIT (length) 

TPUNIT (temperature) 

TUN IT (time) 

The user must choose from the units offered by the 
particular subroutine menu options. These choices were 
included in anticipation of the possible needs of most 
users. Table 7-1 lists the choices available. 

7.2.2 Characteristics of a Typical Subroutine . 

In execution, the five subroutines simply call ISCLDR 
to read the input/output unit indicator, ISCEDT to edit 
the i/o unit indicator, or ISCDMP to write the i/o unit 
indicator. Because all five subroutines are structured 
identically, only one, AUNIT, will be described in detail. 
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Its callinq sequence is listed here: 

SUBROUTINE AUNIT (UIOAUN , CALALL , lOFLAG , lOMODE , 

MTERSE , DBAUNN , DBAUNC , PMPREP , 
PMES , RNFILE , AUNFRM , DEFAUN ) 

The calling sequences for the others are similar. 

Table 7-2 lists the comparable distinctive parameters. 

UIOAUN denotes the i/o angle unit and can be 

either an output variable (when reading or editing) or 

an input variable (when writing) . It has the following 

integer values depending on the specific i/o angle unit: 

1: cycle 

2: radian 

3: degree (angular) 

4: minute (angular) 

5: second (angular) 

CALALL is a logical variable which indicates the status 
of the calling program "all” option. Recall from the 
Cube Module that subroutine MXUNIT was the calling pro- 
gram for this series. lOFLAG indicates whether the 
operation is reading, editing, or writing (lOFLAG = 1, 

2, or 3 respectively) and dictates whether ISCLDR, 

ISCEDT or ISCDMP will be invoked. lOMODE indicates 
the source when reading and the destination when 
writing. MTERSE, NCPW, PMPREP, PMES, and RNFILE ful- 
fill the same roles as described in previous chapters. 

DBAUNN is where the database name of the angle 
unit, "UIOAUN", is stored. DBAUNC is a character 
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Table 7-2. I/O Unit Specifier Subroutine Calling Parameters 



Subroutine 


Parameter 


AUNIT 


FUNIT 


LUNIT 


TP UNIT 


TUN IT 


I/O Unit Indicator 


UIOAUN 


UIOFUN 


UIOLUN 


UIOTPU 


UIOTUN 


Database name 


DBAUNN 


DBFUNN 


DBLUNN 


DBTPUN 


DBTUNN 


Database comment 


DBAUNC 


DBFUNC 


DBLUNC 


DBTPUC 


DBTUNC 


File format 


AUNFRM 


FUNFRM 


LUNFRM 


TPUFRM 


TUNFRM 


Default variable 


DEFAUN 


DEFFUN 


DEFLUN 


DEFTPU 


DEFTUN 



Table 7-3. Basic Unit Series Calling Parameters 



Subroutine 


Parameter 


AUNIT 


FUNIT 


LUNIT 


TPUNIT 


TUN IT 


Conversion factor 


CONVA 


CONVF 


CONVL 


CNVTPM 

CNVTPA 


CONVT 


One letter abbrev. 








NAMTPl 




Two letter abbrev. 




NAMF02 


NAME 02 




NAMT02 


Three letter abbr. 


NAMA03 


NAMF03 






NAMT03 


Five letter abbrev. 








NAMTP5 




Six letter abbrev. 


NAMA06 




NAME 06 




NAMT06 


Eight letter abbr. 


NAMA08 










Twelve letter abb. 


NAMA12 


NAMF12 


NAME 12 


NMTP12 


NAMT12 


Program standard 
unit indicator 


PSTAUN 


PSTFUN 


PSTLUN 


PSTPUN 


PSTTUN 


I/O unit indicator 


UIOAUN 


UIOFUN 


UIOLUN 


UIOTPU 


UIOTUN 
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string which identifies the angle unit variable. It 
is used as the database comment and in the preparation 
of the prompting and description messages. AUNFRM is 
the format to be used if the angle unit indicator is 
to be read from or written to a sequential file. 

DEFAUN is the default value of the angle unit indicator 
if that is chosen as the source. 

In operation, AUNIT branches depending on the 
value of lOFLAG and calls ISCLDR, ISCEDT, and ISCDMP. 
When the user wishes to read the angle unit, AUNIT 
provides menu "ANG.UNIT" with its five choices to 
ISCLDR. This is an example of when a menu is used to 
input an integer value. The reader should understand 
that is is not the name of the unit which is read or 
written by these subroutines, but .rather an integer 
value which denotes the i/o unit to be used. 

7 . 3 The Basic Unit Series 

7.3.1 Series Description . Since the module 
author knows and provides indicators for the units in 
which he has written his program, once the user 
specifies the units he wishes to use during input and 
output, it is possible to determine the conversion 
factors for relating the i/o units to the program 
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standard units. These conversion factors can then be 



passed on to the loaders when reading variables • (real 
scalars or arrays) to convert their values in i/o units 
to p.s.u. for the module computing subprograms. Sim- 
ilarly, these factors can be passed on to the dumpers 
when writing variables to convert their values in 
p.s.u. to i/o units. The determination of the conver- 
sion factors for the five basic types of units is 
accomplished by five logical functions listed here: 

UNITAF (angle units) 

UNITFF (force units) 

UNITLF (length units) 

UNITMP (temperature units) 

UNITTF (time units) 

These functions accomplish one other task: they pre- 

pare various alphabetic character versions of the in- 
put/output unit names, up to tv/elve characters long, 
which are used in database comments and prompting and 
description messages. This is explained further below. 

7.3.2 Calling Parameters . Once again, because 
all five subroutines are essentially structured the 
same, only one, UNITFF, will be described in detail. 

The calling sequence for UNITFF, as it would appear in 
a module subprogram for reading, editing, or writing 
input/output variables, is as follows: 

LOGVAL=UNITFF (CONVF , NAMF02 , NAMF03 , NAMF12 , 
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ALLFLG , PSTFUN , UIOFUN , NCPW) 



The sequence is similar for all five functions with two 
exceptions. The number of versions of the unit names 
for some is different and UNITMP includes two conver- 
sion factors instead of one. Table 7-3 lists the com- 
parable calling parameters for the five functions. 

The first four calling parameters are defined by 
UNITFF and the four are input variables to the function. 
CONVF is the multiplicative conversion factor which 
partially converts the force values from i/o units to 
p.s.u. when reading or editing and does the reverse 
when writing. The conversion also requires an additive 
conversion factor which, in all cases except with 
temperature units, is equal to zero and is provided to 
the loader, editor, or dumper by the module. The con- 
version that takes place in the reading routines is of 
the form: 

VARIABLE (p.s.u.) =VARIABLE ( i/o unit) *UNITFM+UNITFA 

where UNITFM is the multiplicative conversion factor 
determined by one of these functions and UNITFA is the 
additive conversion factor. 

NAMF02, NAMF03, and NAMF12 are respectively two-, 
three-, and twelve- character abbreviations of the 
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force unit used during input and output. NAMF12 is 
used as UNITNM in prompting and description messages 
and database comments for force variables (recall that 
UNITNM must be a twelve character version of the rele- 
vant unit) . Tables B-1 through B-5 in Appendix B list 
the various abbreviations of the five basic units. 

PSTFUN and UIOFUN denote the program standard 
force unit and the input/output force unit respectively. 
They can each be an integer between 1 and 7 inclusive, 
corresponding to the seven permissible force units 
listed in Table 7-1. 

7.3.3 Execution . When invoked, UNITFF calls 
routine CHKRNG to verify that PSTFUN and UIOFUN are 
within the permissible range 1-7. UNITFF then uses 
the pair (PSTFUN, UIOFUN) as an index to a data table 
included within the function to locate the conversion 
factor appropriate for converting an input value in 
the i/o force unit denoted by UIOFUN to the program 
standard force unit denoted by PSTFUN. 

UIOFUN is also used as an index to another data 
table in the function which contains the various 
abbreviations of the seven force units. Ul'JITFF employs 
DEX routine LMOVEC to copy the characters from the data 
table into the strings NAMF02, NAMF03, and NAMF12. 
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If a failure occurs in defining either the force 
unit conversion factor or the unit name, the user is 
informed that the appropriate variable has not been 
defined, is essential for i/o continuation, and must be 
corrected before continuing. ALLFLG is changed to 
.FALSE, if it was .TRUE, and UNITFF is set to .FALSE.. 
If successful in accomplishing both tasks it is set to 
.TRUE. . 

7 . 4 Derived I/O Unit Series 

7.4.1 Series Description . The third series in 
the units category contains twelve logical functions 
for defining conversion factors and unit names for 
units of measurement formed by combining basic units. 
These are listed in Table 7-4 . 

In order to operate these functions, the module 
author must first have either specified or allowed the 
user to specify the basic i/o units which are building 
blocks for these derived unit functions. The module 
program must then have used the appropriate basic unit 
series function or functions to obtain the various 
multiplicative conversion factors and abbreviations. 
These are then used as calling parameters for the 
derived units in this series. 
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Table 7-4. Derived I/O Unit Series 



Function 


Type of Measurement 


Units of Measurement 


UAACC 


angular acceleration 


2 

plane angle/ (time) 


UACCEL 


linear acceleration 


2 

length/ (time) 


UAREA 


area 


( length) ^ 


UFREQ 


frequency 


plane angle/time 


UKVISC 


kinematic viscosity 


( length) ^/time 


UMASS 


mass 


force- ( time) ^/length 


UMPOWR 


mechanical power 


force- length/ time 


UPRESS 


pressure 


force/ ( length) ^ 


UP SPEC 


power spectrxam 


2 

(length) -time 


URHO 


mass density 


force- ( time) ^/ ( length) 


USPEED 


speed 


length/ time 


UVOL 


volume 


(length) 
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There is considerably more diversity in the call- 
ing sequences of the twelve functions. Appendix B, 

Table B-6, lists them for reference. In these functions 
only multiplicative conversion factors are used to 
determine the combined conversion factors because none 
involve temperature units. It should, therefore, be 
easy to identify CONVA, CONVF, CONVL, and CONVT as the 
angular, force, length, and time m.ultiplicative con- 
version factors. The abbreviations of the basic units 
used in the calling sequences were shown in Tables B-1 
through B-5 . 

One of the functions, UPRESS, will be described 
in more detail as an example of how they operate. 

7.4.2 UPRESS Calling Parameters . UPRESS allows 
its users to define the unit conversion factor and name 
for a variable that has the units of pressure (force/ 
area). The calling sequence for UPRESS is as follows: 

LOGICAL FUNCTION UPRESS (UFPRESS , UNPRESS ,ALLFLG, 

CONVF , CONVL , NAMF0 3 , 
NAMF02,NCPW) 

The pressure conversion factor UFPRESS converts the 
input/output pressure unit to the program standard 
pressure unit by multiplication when reading or editing 
and converts the p.s. pressure unit to i/o pressure 
unit when writing by division. The unit name UNPRES 
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is used to identify the units of the variable in 
question for messages and the database comment. UNPRES 
is a twelve-character string (including blanks) . 

ALLFLG indicates the calling program "all" option. 
NAT'IF03 is a three-character force unit abbreviation and 
NAML02 is a two-character length unit abbreviation. 

7.4.3 UPRESS Operation . UPRESS first defines the 
pressure unit conversion factor by the statement 
UFPRES = C0NVF/C0NVL**2 

In order to form the pressure unit name, UPRESS 
defines a twelve-character dummy name variable UXPRES 
printed here: 

II / * * 2 " 

UPRESS inserts, via DEX routine LMOVEC , NAMF03 into 
the first three blank spaces and NAML02 into the fifth 
and sixth spaces. The three "words" (four characters 
per word) of UXPRES are then set equal to the three 
words of UNPRES. As an example, if the force unit was 
poundforce and the length unit was inches, the final 
version of UNPRES would be 

"LBF/IN**2 " 

If a failure occurs in preparing the unit name, a 
message advises the user and informs him that tlie problem 
must be corrected, because it is essential for input/ 
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output continuation. If ALLFLG was .TRUE, it is set 
equal to .FALSE, and the user is informed that the "all" 
option is aborted. UPRESS is then set equal to .FALSE. 

If it is successful, UPRESS is set equal to .TRUE.. 

Certain combinations of basic units have special 
universally recognized names used to identity the 
measurement unit. Where possible, the logical functions 
provide these names rather than creating a name by its 
contituents, such as UNPRES was formed in the above 
example. Table 7-5 lists these special names. 

Although there are only twelve types of measure- 
ments listed the derived unit series have more versatil- 
ity than first meets the eye. They can be used for 
units that have different names but the same basic units. 
For example, UPRESS can be used for stress units as 
well as pressure. In addition, they can be used for 
units that have different basic units but the same for- 
mat. An example is provided by UAACC and UACCEL, which 
could be used for any unit type requiring one basic 
unit in the numerator and a basic unit squared in the 
denominator. The module author must be careful to 
supply the correct special parameters in the function 
calling sequence in the module calling subprogram. 
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Table 7-5. Special Unit Names 
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CHAPTER 8 



DEVELOPMENT OF A CRUISER-DESTROYER DATABANK AT M.I.T. 

8 . 1 Considerations in Database Design 

8.1.1 Function . When designing a database, the 
developer must not only consider for what immediate 
function it is intended, but must also try and anticipate 
other future demands and organize it accordingly. One 
solution to this problem, in a sense an avoidance of it, 
is to create very specialized databases containing in- 
formation about only one aspect of the overall project 
involved. The project has a databank comprised of many 
databases. Physical limitations on the database size, 
such as the limit of 200 variables in a DEX-created 
database, suggest this practice. These smaller data- 
bases may be more efficient from the point of view of 
computer costs when it comes to manipulating them. How- 
ever, the situation can arise where a computer program 
requires as input data from several different databases, 
entailing the time consuming effort of opening and 
closing them all. Only experience in using the data- 
bases can reveal the deficiencies in their design. 

The function of the cruiser-destroyer databases 
developed and/or envisioned in the Department of Ocean 
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Engineering at MIT is to support the naval architect 
during the concept and preliminary design phases of a 
ship design. During these phases a variety of products 
are developed, including the overall vessel dimensions 
and hull definition, hydrostatic and Bonjean curves, 
weight and volume estimates, longitudinal weight distri- 
bution, propulsion and electrical powering requirements, 
transverse stability and floodable length checks and 
general arrangements. The tasks to produce several of 
these, notably the determination of ship dimensions, 
weight and volume estimates, powering requirements and 
transverse stability, can be accomplished with the aid 
of a computer synthesis model. The REED Model [6] used 
at MIT is an excellent example of this design tool, and 
it was the anticipated support of that model that 
strongly influenced the databases designed in this in- 
vestigation. The naval architect who chooses to use a 
synthesis model must carefully determine his input if 
he desires to use the model efficiently. Being able to 
draw upon a supply of existing ship information is in- 
valuable to this effort, and this was one of the reasons 
for developing the cruiser-destroyer databases. 

An effective database is one that can be shared by 
many different engineers involved in the ship design 



128 



I 



I 



I 



project, each of whom has a different task to perform. 
Data should be stored in a form that allows each one to 
extract the information required and use it directly 
without having to pass it through some form of inter- 
pretation process. An example is a table of offsets 
database. Ideally, it contains sufficient offsets pro- 
perly organized such that each one of the programs for 
hydrostatics, Bonjean curves, cross curves of stability, 
floodable length, structures and seakeeping can directly 
access it and obtain the input required without having 
to go through a "black box" interface program. 

The development of a comprehensive computer-aided 
ship design system that ensures such program/database 
design requires a "top down" approach to the problem, 
as described in reference [7]. One starts with the 
overall objective and works down through functional 
specifications to complete system design. If success- 
fully accomplished, as a result of strict discipline 
during the process, no unnecessary capabilities need be 
developed along the way. One proceeds from each level 
to the next lower by answering the question of how to 
provide for the needs of the higher one. This contrasts 
directly with the traditional method of many individuals 
writing programs for their specific task, and only after- 
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wards determining if these programs can be integrated 
for some higher objective. 



8.1.2 Types of Databases . Accepting the concept 
of a bank of databases to describe a ship, either exist- 
ing or being designed, we can list the types which will 
be useful: 

1. General description 

2. Weights and centers of gravity 

3. Longitudinal weight distribution 

4. Volumes, areas, and centroids 

5. Offsets 

6. Equipment specifications and locations 

7. Power-speed data 

8. Seakeeping data 

9 . Internal arrangements 

10. Topside arrangements 

This list is similar to that of the computer-aided 
ship design system implemented in the Ship Department 
of the British Ministry of Defense [8]. 

Storing in a computer databank several of these 
databases for many classes of ship is extremely helpful 
as a research resource during the concept design of a 
new vessel. Taking this one step further, as described 
in reference [8] , is to establish "base" ship databanks 
made up of all of the database types. If a new vessel 
is similar to one of these, a copy of the databank pro- 
vides an excellent starting point to begin defining the 
new design and can save much redundant work. This is 
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predicated on the assumption that all the databases of 
a particular type for all ships are identical in struc- 
ture and differ only in content. Such a practice is 
essential to the efficient use of the databanks. 

8 . 2 Organization of the MIT Cruiser-Destroyer Databases 
8.2.1 General Databases . During this investigation 
work was conducted to establish the first two types of 
databases listed in Section 8.1.2 for eleven classes of 
U.S. cruisers, destroyers, and frigates. These classes 
are as follows: 

FF-1040 DD-931 CG-16 

FF-1052 DD-963 CG-26 

FFG-1 DDG-2 CG-47 

FFG-7 DDG-40 

This section will describe the organization of the gen- 
eral databases and the next section will describe the 
weights and centers of gravity databases. 

The general databases are so named because they 
provide a general and not-too-detailed description of 
the ship class which would be useful to a researcher 
seeking to determine first estimates for a new design. 

The information was gleaned from various sources in the 
open literature, and the respective weight and moment 
reports and booklets of general plans [9,10,11,12]. 
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The database contains eight categories of variables. 

These are: 

1. Hull characteristics 

2. Propulsion and powering 

3. Transverse and directional stability 

4. Weapons payload 

5. Electronics, fire control, and sensors 

6 . Aviation capability 

7. Complement 

8. Gross mass properties 

Appendix C is an example of a general database. The 
individual entries are what would appear if one issued 
the "dump" command from the DEX level with a particular 
database open. The order of the listing would not be as 
they appear here because of a "hashing" function built 
into the DEX which distributes entries to a database in 
the memory randomly in order to store them more effi- 
cently . 

There are actually 78 variables, listed in Table 8-1 
which constitute the eight categories. Each one has a 
number assigned on the left hand margin. These serve 
as a convenient indicator for the creation of Fortran 
names for the various variables associated with each 
element used in a DEX program. For example, in the 
module f4ACHV7T described later in this chapter, the pro- 
gram names for the default value and comment statement 
for propulsion plant type (Item #20) are DEF20 and 
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GENERAL SHIP CHARACTERISTICS DATABASE 
FOR U.S. NAVY CRUISER-DESTROYERS 



4J 

CD 

0 ) 



in 

Eh 


4J 


2 


2 


-M 


4J 


2 


-P 


in 


C/3 


4-1 


T5 


H 


CD 


a 


CD 


CD 


CD 


0 


0 


c 


G 


• 


0 


2 


CD 


CD 


<D 


CD 


0 


0 


0 


0 


0 


cr* 


0 


2 


U-l 


U-l 


U-l 


U-l 


U-l 


U-l 


4-1 


2 


P 


U3 


Oi 



e- 

s 



O 

u 



in 

u 

M 

Eh 

in 

M 

X 

w 

Eh 

U 

< 

u 

oc 



0 

G 

M r— i 

rn u 

r-H 0 

D ^ 
O (T3 
■'H ^ 

T3 

C C 

o u> 

04 ■ 



u 

c 

0 ) 



04 

(JL4 

4J 

u-( 

fT3 

O^ 

CQ 

h:i 

U-J 

O 

c 

o 



04 

Jj 

U-t 

03 

Oi 

CQ 

03 

u-i 

O 



U3 

03 

O 

r“ 

nC 

>( 

O 

Si 



O 

•H 

4J 

O 

03 

J-l 

U-J 

U3 

03 

C 

o 

-H 

03 

4J 

C 



U 

G 

0 ) 

•H 



^-1 

o 



u u 



(U 

Jj 

3 

o 



in 

0) 

03 

C 

0 ) 

3^ 

04 

03 

? 

'03 

G 

f-H 

o 

c 

•H 



Q) -U 



in 

0 ) 



0 

c 






u 
2 
M 
Oi 

w 
[2 

0 

01 

Q 

2 
< 

4J 

2 C 

0 03 

M r -1 

cn o. 

01 



CD 

o 





P 


U3 




0 


•H 


C 




0 


0 


0 


p 


£ 


C 


P 






2 


C 




0 


0 




M 


0 


0 


p 


•H 


P 


p 


03 


0 


0 


c 




0 


Oi 


0 




O 4 


Ti 






•H 


•H 


c 


P 


C 


c 




'G 


£ 


0 




p 


0 


P 










0 


P 


0 


0 


P 


0 


0 


in 




0 


£ 




P 


Qi 


in 




C 


P 




P 


P 


•rH 


•H 


0 


0 


0 


Oi 


P 


CD 


0 


0 


c/3 


Oi 




rH 


0 


0 






0 


p 


0 


0 






P 


03 


G 


0 


0 


G 




G 


0 


0 




B 


P 


0 


p 


•H 


CD 


P 


p 


g: 


C 


P 


G 


G 


0 




O. 


p 




s 


03 


P 


0 


0 


P 




0 


03 




0 


2 


P 


P 


0 




0 


0 


P 


5 


0 


0 




0 


P 


0 


c 


c 


T3 


in 


U3 




P 


P 




P 


> 


0 


0 


P 


P 


0 


0 


0 


C 


•H 


•H 


P 




P 


C/3 


G 


0 




a. 


0 


P 


p 






•H 




0 


03 


T3 


00 


£ 


p 


•G 


P 


in 


P 












e 




P 


0 


0 


P 


G 


G 


03 


0 




T3 








p 






00 


G 




0 


•H 




0 , 


P 


p 






'G 




T5 


T3 




0 


P 


p 


0 


£ 


0 


£ 


P 




P 


P 


p 


jZ 


p 


0 


P 


0 


0 












•H 


Ti 


w 


in 


0 


0 


CP 


CP 


P 


p 


'G 


G 


p 


C/3 




0 


G 


c 


r-H 


X 


fH 


•H 


T3 


0 


P 


z 




2 


0 


p 


P 


p 


P 




a 


0 


0 


0 


0 


0 


P 


•H 


p 


0 


0 


0 


0 


p 


0 


0 


0 


G 






P 


p 


2 


2 


2 


Oi 


2 


p 


2 


p 


p 


Q 


Q 


2 


Eh 


2 


Oi 




Eh 



w 

Oi 

Eh 



2 



Oi 


Oi 


Oi 


Oi 


Oi 


Oi 


Pi 


Oi 


Oi 


Oi 


0 : 


Oi 


Oi 


(X 


Oi 


Oi 


M 






M 


























2 




















P 


X 


















0 


Q 


Eh 


Oi 














2 


















p 


in 


P 


0 


Oi 














Q 


















2 


Eh 


2 


Eh 


2 


P 






Oi 






2 


















Eh 


Oi 


Oi 


Oi 


in 


in 






>H 


< 


Oi 


< 


< 










Oi 


CQ 


[P 


Oi 




in 


in 


Eh 


u 






Eh 


0 


CQ 


W 


w 




Oi 


X 


p 


2 


U 


u 


W 


(X 


M 


M 


P 


0 






Oi 


P 


P 


a 


p 


Eh 


0 


u 


u 


0 


P 


p 


Q 


Q 


Q 


Q 


2 


0 






Oi 


P 


(N 


m 




LO 


v2 




00 


CT» 


0 


p 


CN 


m 




in 


ID 




00 


03 


0 




















P 


p 


P 


P 


P 


p 


p 


p 


p 


P 


CN 



.-H CN rn 



133 



SHP R Total installed shaft hors 

NSHAFT I Number of propeller shafts 

NE I Number of engines 

NB I Number of boilers 
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TYPGUNS A (3) Type of guns Reed 

NGUNS A (3) Number of guns of each type 

TYPMSL I Type of missile launchers Reed 

NMSL I Number of missile launchers 
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CMNT20 respectively. 

In each category some space has been left for 
additional variables. Further, experience with the 
databases may indicate that some items are not needed 
and can be deleted. 

An inspection of both Table 8-1 and Appendix C 
reveals that certain items referring to the types of 
plant or type of equipment have integer values where one 
would expect a name. The reason for this is because 
only three types of variables are allowed in the DEX: 
integer scalar, real scalar, and real array. Alpha- 
numeric words in the "value" part of a database entry 
are not allowed. A code of integer values was needed to 
solve this dilemma, and it was decided to adopt the pay- 
load shopping list of the REED model because of its 
comprehensiveness and its widespread use at MIT. Appen- 
dix D contains the payload list from reference [6], with 
some additional items included for this application. 

The restriction on arrays that they contain only 
real values poses a minor problem because they sometimes 
contain information from the code which should be stored 
as an integer. It should be obvious to the user from 
the array name that an integer value is implied. Arrays 
are used in some not very obvious cases in order to 
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accommodate the most information. An explanation of the 
array variables should prove helpful. 

TYPMATL has two entries to distinguish between the 
type of material for the hull and the type of material 
for the superstructure. The integer values are 1 for 
steel and 2 for aluminum. 

The type of sonar carried (TYPSONAR) is an array 
because some ships have two systems installed: a bow 

or keel-mounted sonar, plus a towed array or variable 
depth sonar. 

NGUNS and TYPGUNS are three element arrays to 
accommodate the most number of distinguishable gun 
mounts in any of the classes, which exists on the 
DD-931 class. Not only does this destroyer carry two 
calibers, 5" and 3", but the REED payload code allows 
the distinction between a 5" gun mounted on the main- 
deck (93) and a 5" gun mounted on the 01 level (94). 

The emergency or secondary electrical plant in- 
cludes three array variables: EMETYP, NEMG, and KWPEMG. 
The CG-26 class cruiser has both a gas turbine-driven 
and diesel-driven emergency generator. Therefore, the 
first entries of the three arrays describes the one and 
the second entries describe the other. 

Unfortunately, a great amount of the data available 
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from the various sources for the general database was 
conflicting. Where such descrepancies occurred, this 
investigator made choices based upon the most original 
source, or the value upon which the most sources agreed. 
Whenever possible, the original ship equipment is listed 
in order to correspond to the weights and centers of 
gravity databases, whose information comes from the 
original class weight and moment reports. 

Any value that was either classified or unavailable 
was left undefined. 

8.2.2 Mass Properties Databases . The general 
databases include a gross mass properties category which 
includes two arrays, WEIGHT17 and VCG17. These contain 
respectively the overall weights and centers of gravity 
of weight groups 1 through 7. The weight groups conform 
to the U.S. Navy BSCI organization of ship weights. Al- 
though the BSCI system has been replaced by the SWBS 
(Ship Work Breakdown System) in recent years, it was 
used for the databases because only the FFG-7 class is 
sufficiently recent to have its weight and moment report 
organized with the new system. Further, the REED model 
is based on BSCI. 

The gross mass properties are included in the gen- 
eral databases because they are more frequently used for 
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estimations than the individual weight items, and their 
inclusion may save the user from inspecting two different 
databases . 

There are about 150 items comprising the eight 
weight groups of the BSCI system. Therefore, the com- 
bination of weight and center of gravity for each item 
exceeds the limit of 200 entries in a DEX database. 
Although the use of arrays offers an apparent solution 
to this problem, the idea was discarded after careful 
consideration for several reasons. First, if one wished 
to store the weight in long tons, the vertical center of 
gravity in feet above baseline and the longitudinal 
center of gravity in feet aft of the forward perpen- 
dicular or from amidships in a three element array, not 
only would it be difficult to identify the information 
in the 64 characters of the database comment, but only 
one of the two unit names could be stored there. An- 
other possibility was to store all of the weights (or 
centers of gravity) for one weight group in an array. 
There would then be eight weight arrays, eight vcg 
arrays and eight leg arrays, with the proper units in 
the database comment. The limit of 200 elements per 
array would not be a problem because the largest index 
in any weight group is 51. This was considered 
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unsatisfactory because it was not felt that the one 
database comment for the array was sufficient to iden- 
tify the individual weight items and an extra index 
would have to be provided to the user. Further, an 
additional process would have to be developed for ex- 
tracting the particular weight item out of the array, 
and avoiding the need to know where a value was stored 
in the database was one of the driving principles for 
developing DEX databases to begin with. 

Instead, it was decided to create a weight data- 
base and a vertical center of gravity database, with 
each item listed separately. Appendix E illustrates the 
listing of each type. No need was felt by this invest- 
igator for a longitudinal center of gravity database 
for existing ships. The estimating of the transverse 
stability of a new ship design can be done effectively 
using data from existing ships because the vertical 
locations of most items is restricted to a reasonable 
degree by physical factors or proven arrangements. The 
REED model demonstrates that dependable parametric 
equations can be developed for estimating vertical 
centers of gravity. However, there is far more flexi- 
bility in both theory and practice for the longitudinal 
locations of many of the same items. Therefore, it is 



141 



more difficult to correlate into acceptably accurate 
parametric equations the information available on leg's 
in existing ships. This does not preclude the need for 
a database containing the longitudinal weight distribu - 
tion of a ship design in order to support longitudinal 
strength and seakeeping analyses. Nor does it preclude 
the use of a longitudinal center of gravity database for 
a new ship in order to support longitudinal stability 
(i.e. trim) analyses. 

8 . 3 Independent and Dependent Variables 

8.3.1 Concept . Databases can be both the source 
and destination of information. A particular program 
may read its input from a database, calculate values for 
other variables in the database, and write the new val- 
ues into those entries. This would be disastrous if 
uncontrolled. When administering a ship design project 
that involves multiple uses of the same databases, the 
ship design manager must have a system whereby he can 
control changes to the databases that occur as the 
design progresses around the design spiral. Further, 
the system should allow all design team members to be 
alerted to changes which may affect them. It is planned 
in future versions of DEX to implement a system that 
supports the concept of independent and dependent 
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variables . 



Certain variables will be defined by the user as 
independent variables which, either by fact or intention, 
can not be changed despite changes in other variables. 

The remaining variables in the program or database are 
dependent on the former or each other for their values. 
Each entry in a database will be provided with an index 
of those variables whose value would be affected by a 
change in its value. VJhen causing a change to such an 
entry (i.e. DBCHNG becomes .TRUE.), the user can query 
this index to determine which other items should be 
checked . 

This task is extremely difficult in ship design 
because of the interaction of alm.ost all of the variables. 
Ship design is not a linear process but a spiraling one. 
Figure 8-1 illustrates an attempt to group the variables 
of the general database into five levels of dependence. 

The first column represents those variables which can 
be considered independent. These might appear as 
specifications in a Top Level Requirement or they might 
be the result of trade-off studies during the design 
phase . 

The second group consists of those variables which 
are most directly affected by the independents or which 
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Figure 8-1. General Database Variable Relationships 
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are estimated first in the design process. The third 
column is dependent upon values in the first and/or 
second columns and the fourth column on values in the 
third and possibly first and/or second column. This 
table allows the database designer to determine what 
indices to put on each variable to alert him to check 
dependent ones. 

• For example, the dependent variables entry for 
ENDUR may include the following: WTLOAD, LBP, BEAMDWL, 
T, CP. A check on LBP will than add to the list of 
affected variables DISPMLD, DISPTOT, LOA, CWP, Cl, LCB, 
LCF, etc. Although this system requires more work by 
the database designer, it will make the job of the 
design manager easier. 

8 . 4 Application of DEX; An Example 

8.4.1 Function of MACHWT . The Machinery Weight 
Estimating (MACHWT) Module was written to demonstrate 
how DEX and the cruiser-destroyer databases could be 
used in the preliminary design of a new ship. MACHWT 
has a fairly limited computation capability since it is 
only a demonstration module. It enables the user to 
estimate weight items 200, 201 and 203 based on certain 
existing parametric equations and parametric equations 
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developed by the user during the module execution. 

These three weight groups are respectively the 
weight of boilers, weight of propulsion units and weight 
of the propeller, shafting, and bearings. An analysis 
of 9 ships for which weight data is available reveals 
that the sum of these three items constitute between 
58.0 and 65.5% of the total Group 2 weight. 

The first two weight items are estimated by 
assuming that they are linearly related to installed 
horsepower. The program fits a straight line to data 
extracted from the databases chosen by the user and pre- 
dicts the new ship weights based on the new specified 
installed SHP . The program calculates the three com- 
ponent weights of item 203 from the input supplied by 
the user from any of the valid sources, using parametric 
equations from the REED model. A summary of the input 
required for each weight is provided in Table 8-2 (the 
actual database names are used) . 

8.4.2 List of Subprograms and Menus . The Machinery 
Weight Estimating Module includes ten subprograms. They 
are listed below in the order in which they are most 
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likely encountered during the execution of the module: 



MAINPG 

MOD 10 

INPUT 

MWUNIT 

MWLIST 

MWCHRT 

MWCOMP 

OUTPUT 

MWCOEF 

BLOCK DATA 

LINFIT 

There is actually no one correct sequence of listing the 
subprograms in the module, other than the requirement that 
MAINPG be first. 



TABLE 8-2 
INPUT FOR MACHWT 

W200: W200 and SHP from at least two steam ships and 
SHP of new ship 

W201: W201 and SHP from at least two ships and SHP 
of new ship 

W203: LBP, PPTYP , NSHAFT, PRPTYP , VSUS and DPROP 
(optional) of new ship 
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Seven of the subprograms employ menus in their 
operation. These are illustrated in Figure 8-2. A 
listing of the module subprograms appears as Appendix F. 
They are described in the next section. 

8.4.3 Description of the Subprograms . A descrip- 
tion of a typical execution of the module will serve as 
a backdrop for the subprogram descriptions. The user 
leaves the DEX level and activates the module by using 
the "DEX-MAIN" menu item and module labeled 

.begin machwt 

Subprograms MAINPG and menu "MOD. MAIN" are en- 
countered first. MAINPG is identical to the subprogram 
of the same name used in the Cube Module described in 
Chapter 2 , as is subprogram MODIO, which would be the 
next one encountered. The menu selections from these 
two subprograms are 

.read input 

These place the user in subroutine INPUT. This 
subroutine provides the user with a menu permitting him 
to read, edit, or write the following: 

1. All the module input variables. 

2. The module input and/or output variables 

3 . The machinery weight item to be estimated 

4. The data from existing ships to be used 

for curve fitting for weight items 
W(200) and W(201) . 
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MENU 

MOD. MAIN 



DIALOGUE 

INMODE 

OUTMODE 

READ 

EDIT 

COMPUT 

WRITE 

QUIT 



MENU 
MOD . 10 



INPUT 

OUTPUT 

DONE 



MENU 




MENU 
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ALL 




ALL 


UNITS 




FORCE 
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DONE 


DONE 
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CHARACT . 
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DRAFT 
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W200 
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MENU 

OUTPUT 
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WT . ITEMS 
COEFFICI 
DONE 



Figure 8-2. Machinery Weight Estimating Menus 
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5. The characteristics of the new ship 

design needed as input for the weight 
calculations . 

The machinery weight item must be read first to 
establish the proper value of a variable WFLAG needed by 
the subsequent subprograms. This will permit the cor- 
rect prompting messages to be issued to the user for 
proper input sequencing. 

The user can access MWUNIT to specify the length, 
force and time units to be used for input and output, 
but he will normally just use the ones initialized in 
the module in BLOCK DATA. These values are respectively 
foot, long ton and second, and were chosen to conform 
with the units of the database variables used. MWUNIT 
is a shortened version of MXUNIT from the Cube Module. 

Returning from or bypassing MWUNIT, the user types 

.wt.item w200 

to access MWLIST and set WFLAG to indicate weight group 
200 to be estimated. MWLIST returns him to INPUT and 
he selects "curvepts". The following prompting message 
is issued, 

*SPECIFY THE SEQUENTIAL NUMBER OF THIS PAIR OF DATA POINTS 
*ENTER UP TO 1 INTEGER NUMBERS 

He types "1" and is presented with menu "CHARACT." from 
subroutine MWCHRT. 
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Subroutine MWCHT allows the user to read, edit, or 
write the characteristics of the ship in question listed 
in the menu in Figure 8-2. For data points, the in- 
dependent variable must be read first and the dependent 
variable next. In this case the user specifies SHP and 
then W200 and they are read from the open ship database 
and then inserted into the first positions of an in- 
dependent variable array and a dependent variable re- 
spectively. The user then issues 

.done done done 

to get back to HAINPG. Using the "inmode" menu selec- 
tion the user closes the open general database for one 
steam warship and opens the other one. He then types 
.read input curvepts 2 shp yes w200 
to ‘input the second pair of data points into the two 
arrays. The "yes" responds to a question posed by 
MWCHRT to ascertain if the user is employing horsepower 
or kilowatts to measure SHP. 

This process is repeated for as many ship class 
databases from which the user wishes to read data for 
curve fitting, up to a limit of 10. For the purpose of 
demonstration, the three weight items were stored in 
the general databases so that only one database for 
each ship would have to be opened. Normally they re- 
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side in the weight databases. 

When the user is satisfied with the data points 

read, he specifies "newship" from menu "INPUT" which 

causes the following message to be issued: 

*T0 ESTIMATE W(200) OR W(201) INPUT NEW SHIP SHP . 
*SELECT WHICH CHARACTERISTIC TO READ. 

The user then selects SHP from menu "CHARACT." to com- 
plete the input required. He returns to MAINPG and 
executes the computing program MWCOMP by the following 
command : 

.done done done compute 

Once it completes its calculation, MWCOMP returns control 
to MAINPG, which issues its menu prompting message. 

In order to first inspect the coefficients of the 
straight line fitted to the data, the user (after en- 
suring that the destination is the terminal) types 
.write output coeffici 

These commands invoke MODIO, OUTPUT and MWCOEF succes- 
ively. The last one causes the two element coefficient 
array to be printed. The two values which appear are 
the slope and y-intercept of the straight line. 

The user then selects "newship" from menu "OUTPUT" 
and then "w200" from "CHARACT." and the new estimated 
boiler weight is printed on the terminal. The user 
can them return to MAINPG, choose the new ship database 
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as the destination, and write the estimated W(200) into 
it. Now, in order to estimate W(201), the user must 
first exit the module via the "quit" selection from 
"MOD. MAIN" in order to clear the independent and depen- 
dent variable arrays. This is unnecessary if he is go- 
ing to use at least the same number of data points as 
for W{200). It is also unnecessary for W(203) which 
does not require curve fitting. 

For W(203), subroutine INPUT prompts the user with 

the following message when "newship" is chosen: 

*T0 ESTIMATE W(203) THE FOLLOWING INFORMATION IS REQUIRED 
*LBP PPTYPE SHP NSHAFT PRPTYP VSUS DPROP (optional ) 

If DPROP is not specified MWCOMP estimates it. 

Simple as it is, MACHWT is more sophisticated than 
the Cube Module. It is hoped that the listing in 
Appendix F can serve as a guide to readers preparing a 
module for use on the DEX. 

8.4.4 Results from the MACHVJT Module . The module 
was exercised to estimate W(200) and W(201) for a nominal 
new ship design having a 40,000 SHP 1200 psi steam plant 
installed. In order to estimate the v/eight of boilers, 
data from the DDG-2, DDG-40, and FF-1052 classes was 
used. For estimating the weight of the propulsion units, 
data from the DDG-2, DDG-40, CG-16, CG-26, FF-1052, and 
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FFG-1 class databases was used. 

The REED Model algorithms for the respective 

weights are as follows: 

W200=,00234*SHP+48,09 
W201=. 0014 3*SHP+17 . 92 

The MACHWT Module fits the following equations to 
the data used: 

W200=. 002585*SHP+31. 94 
W201=.0017665*SHP+6.66 

The respective estimated weights for the new ship 
appear in Table 8-3. 



TABLE 8-3 

WEIGHT ESTIMATES FOR 40,000 SHP SHIP DESIGN 



Reed Model MACHWT 

W200 (tons) 141.7 135.3 

W201 (tons) 75.1 77.3 



8.4.5 Future Developments . MACHWT represents a 
starting point for what is hoped will be a major ship 
synthesis program incorporating DEX databases and the 
REED Model. The model as written contains hundreds of 
parametric equations for estimating weights, volumes, 
areas and centers of gravity which were derived from 
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the data available to its author at that time. As new 
ships are designed by the Navy, say every 4-5 years, a 
problem arises with respect to incorporating them into 
the model. It would be a major undertaking to perform 
the regression analysis for all new equations. Such a 
task would have questionable merits since it would pro- 
bably be found that many equations change only slightly, 
and others that change drastically have insignificant 
effects on the overall design. Further, the user would 
still be confined to using equations of a form chosen 
by some other designer and derived form those ship 
classes chosen by him, to which the current user may 
ob j ect . 

MACHWT demonstrates a program that allows the user 
to specify the ship data upon which he wishes to perform 
a regression analysis. There is no reason why the co- 
efficients obtained could not be written into a database 
which would be accessed by the REED model in order to 
estimate that weight item. Expanding on this idea, a 
program could be developed which allows the user to 
derive his own coefficients for parametric equations for 
the large, but not all inclusive, set of variables 
(weights, volumes, etc.) which impact significantly on 
the ship design. When a new naval ship class design is 
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finalized, databases could be produced and stored in the 
design library at MIT. Only after, perhaps, 3-4 designs 
and 10-15 years would a major revision of the REED model 
become worthwhile. The cycle could then begin anew. 

Not only would this approach avoid frequent rewriting 
of the REED model, but more importantly, it would allow 
the individual designer much more control over the tool 
at his disposal. This would greatly support the function 
of the department to train naval architects. 
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CHAPTER 9 



CONCLUSIONS AND RECOMMENDATIONS 



With the completion of the work of this investiga- 
tion the first truly capable version of DEX at MIT has 
been implemented. Current plans call for the adaption 
to DEX of many of the computer programs in the depart- 
ment and the indoctrination of students to the system. 
These programs cover a wide range of the calculations 
which occur during the preliminary design phase. 

Two areas of the extended DEX library require 
development. First is the creation of routines for 
editing real arrays. Several editing capabilities, 
similar to those of the operating system, are being 
considered for implementation, possibly operated by the 
user by means of an editing menu. 

The second area is the task of introducing graphics 
to the DEX at MIT. An idea to develop routines capable 
of reading or writing a pair of one-dimensional arrays 
is under consideration as the means for handling plots. 
One problem that also must be solved is how to allow the 
plotting of two curves on the same graph on the screen 
without any intermediate dialogue between program and 
user. Although some terminals permit both plotting and 
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dialogue to occur simultaneously on the screen, many do 
not, and for DEX to be portable it must be suitable for 
both types of terminals. 

For the purpose of performing ship designs at MIT, 
this writer perceives the most immediate and imperative 
need to be the development and implementation of pro- 
grams which will allow the creation of a table of offsets 
database. Once the hull form can be defined, the existing 
programs for hydrostatics, cross-curves of stability, 
floodable length and Bonjeans, adapted to DEX, can be 
operated using a common offsets database. Actually, with 
a hull definition database, the door is open for a sig- 
nificant expansion of the use of the computer in the 
preliminary design phase including seakeeping, general 
•arrangements, longitudinal strength, etc. Therefore, 
this task is strongly recommended as a fruitful area 
for further research. 

The adoption of the DEX System entails a change in 
philosophy on the part of the individual author and user. 
Heretofore, the programmer required the user to learn 
how to provide the input, to restrict himself to the 
design path chosen by the author, and to use the units 
preferred by the author. With DEX, the user should ex- 
pect some standardization in the means of input. 
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flexibility in the path to pursue, and choice in the 
unit system with which to work. It means more work for 
the module author, but his job is only performed once, 
while the advantages he can offer by using DEX will be 
available to countless users. 
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APPENDIX B 

UNIT SUBROUTINE ABBREVIATIONS AND CALLING SEQUENCES 
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Table B-1. Angle Unit Abbreviations 



NA2-1A03 


NAMA06 


NAMA08 


NAMA12 


CYC 


CYCLE 


CYCLE 


CYCLE 


RAD 


RADIAN 


RADIAN 


RADIAN 


DEG 


DEGREE 


DEG(ANG) 


DEGREE (At^G) 


MIN 


MINUTE 


MIN (ANG) 


MINUTE (ANG) 


SEC 


SECOND 


SEC (ANG) 


SECOND (ANG) 



Table B-2. Force Unit Abbreviations 
NAMF02 NAMF03 NAMF12 



PL 


PDL 


LB 


LBF 


ST 


ST 


LT 


LT 


DY 


DYN 


N 


N 


KP 


KGF 



Table B-3. 


Length 


NAML02 


NAML06 


IN 


INCH 


FT 


FOOT 


SM 


STATMI 


NM 


NAUTMI 


MM 


MILLIM 


CM 


CENTIM 


MT 


METER 


KM 


KILOMT 



POUNDAL 
POUND (FORCE) 
SHORT TON 
LONG TON 
DYNE 
NEWTON 
KILOPOND 



Unit Abbreviations 

NAML12 

INCH 

FOOT 

STATUTE MILE 

NAUT. MILE 

MILLIMETER 

CENTIMETER 

METER 

KILOMETER 
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Table B-4. Temperature Unit Abbreviations 



NAMTPl 


NAMTP5 


NMTP12 


C 


DEG-C 


DEGREES-C 


F 


DEG-F 


DEGREES -F 


K 


DEG-K 


DEGREES-K 


R 


DEG-R 


DEGREES -R 



Table B-5. Time Unit Abbreviations 



NAi4T02 


NAMT03 


NAMT06 


NAT4T12 


SC 


SEC 


SECOND 


SECOND 




MIN 


MINUTE 


MINUTE 


HR 


HR 


HOUR 


HOUR 


DY 


DAY 


DAY 


DAY 


WK 


WK 


WEEK 


WEEK 


MO 


MO 


MONTH 


MONTH 


YR 


YR 


YEAR 


YEAR 
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Table B-6. Calling Sequences of Derived Units 



LOGICAL FUNCTION 


UAACC (UFAACC , UNAACC , ALLFLG , 

CONVA , CONVT , NAJMAO 3 , NAMTO 3 , NCPW ) 


LOGICAL FUNCTION 


UACCEL ( UFACC , UNACC , ALLFLG , 

CONVL , CONVT , NAML 0 6 , NAMT 0 2 , NCPW ) 


LOGICAL FUNCTION 


UAREA ( UFAREA , UNAREA , ALLFLG , 
CONVL , NAML 0 6 , NC PW ) 


LOGICAL FUNCTION 


UFREQ ( UFFREQ , UNFREQ , ALLFLG , 

CONVA, CONVT, NAMA08 ,NAMT03 , 
UIOAUN , UIOTUN , NCPW) 


LOGICAL FUNCTION 


UKVISC (UFKVIS ,UNICVIS , ALLFLG, 

CONVL , CONVT , NAML 0 2 , NAMT 0 3 , 
U lOLUN , UIOTUN , NCPW ) 


LOGICAL FUNCTION 


UMASS (UFMASS , UNMASS , ALLFLG , 

CONVF,CONVL,CONVT,NAMF02 ,NAML02 , 
NAMTO 2 , UIOFUN , UIOLUN , UIOTUN , NCPW) 


LOGICAL FUNCTION 


UMPOWR (UFPOWE , Ul^P OWE , ALLFLG , 

CONVF , CONVL , CONVT , NAMF 0 2 , NAML 0 2 , 
NAMTO 2 , UIOFUN , UIOLUN , UIOTUN , NCPW) 


LOGICAL FUNCTION 


UPRESS (UFPRES,UNP RES, ALLFLG, 

CONVF , CONVL , NAMF 0 3 , NAML 0 2 , NCPW) 


LOGICAL FUNCTION 


UPSPEC (UFPSPE,UNPSPE, ALLFLG, 

CONVL , CONVT , NAML 0 2 , NAMT 0 3 , NCPW ) 


LOGICAL FUNCTION 


URHO ( UFRHO , UNRHO , ALLFLG , 

C ONVF , C ONVL , C 0 WT , NAMF 0 3 , NAML 0 2 , 
NAMTO 2 , UIOFUN , UIOLUN , UIOTUN , NCPW ) 


LOGICAL FUNCTION 


USPEED (UFSPEE , UNSPEE , ALLFLG , 

C ONVL , C ONVT , NAML 0 6 , NAMT 0 2 , 
UIOLUN , UIOTUN , NCPW) 


LOGICAL FUNCTION 


UVOL ( UFVOL , UNVOL , ALLFLG , 
CONVL, NAML 06 ,NCPW) 
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APPENDIX C 

SAMPLE GENERAL DATABASE 



Note: This is an edited version of the listing of 

the database obtained at the terminal. The actual listing 
of the items is in a random order due to the hashing func- 
tion employed during the storing of the entries. Group 
headings also would not appear at the terminal. 
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SOURCE: Michael Reed, "Ship Synthesis Model for Naval Surface Ships" (O.E. and S.']. Thesis, 
Massachusetts Institute of Technology, 1975), Table 21. 
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246 35' Motor Boat 

247 40' Utility 

248 40' Personnel n: new item - 6 December 1979 
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TABLE D-2 



SUPPLEMENTAL PAYLOAD SHOPPING LIST 



ITEM DEFINITION 

Fire Control Radars and Directors 

300 SPG-51C 

301 SPG-55 

302 SPG-60 

303 MK-51 Gun Fire Control Director 

304 MK-63 Gun Fire Control Director 

Missile Launchers and Fire Control Systems 



305 


Tartar MK-11 


GMLS 


306 


Tartar MK-22 


GMLS 


307 


MK-11 MFCS 




308 


riK-76 MFCS 
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TABLE D-3 



INDEX TO NON-PAYLOAD REED CODE 

item code meaning 



Propulsion Plant Type 1 
(PPTYP) 2 

3 

4 

5 

6 

7 

8 



Ship Service Electric 1 
Plant Type 2 

(SSEPTYP) 3 

4 

5 

6 

Emergency Electric 1 

Plant Type 2 

(EMETYP) 3 

4 

5 

Type of Material 1 

(TYPMATL) 2 



600 psi steam 
1200 psi steam 

1200 psi pressure-fired steam 
nuclear 

gas turbine first generation 
gas turbine second generation 
diesel 
COGAS 

steam 

gas turbine first generation 
gas turbine second generation 
low speed diesel 
medium speed diesel 
high speed diesel 

gas turbine first generation 
gas turbine second generation 
low speed diesel 
medium speed diesel 
high speed diesel 

steel 

aluminum 



SOURCE: Michael Reed, "Ship Synthesis Model for Naval Surface 
Ships" (O.E. and S.M. Thesis, Massachusetts Institute of Technology, 
1975). 
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APPENDIX E 

SAMPLE WEIGHT AND VERTICAL CENTER OF 
GRAVITY DATABASES 



Note: These are edited versions of the listings 

of the databases obtained at the terminal. The actual 
listings of the items in each database is in a random 
order due to the hashing function employed during the 
storing of the entries. 
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rit: *** v/uc;ill DAIAUASL lOU U.S, l)l)G -2 ’CIIAIU.LS F. ADAMS’ CLASS 
NAMF lYPl VAl UL COMMFNI 
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MACHWT MODULE LISTING 



Note : 

Cube Module 



Subroutines MAINPG and MODIO are included in the 
listing in Appendix A and do not appear here. 
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